Іть написати програму мовою паскаль за цією ! на одному маленькому квадратному безлюдному острові зі стороною а м. перебували к робінзонів. чи не порушені їхні права на житло, якщо на кожного робінзона повино придбати s м^2 площі острова? скільком новим робінзонам ще вистачить місця на острові?
program a;
var k:integer;
a,s:real;
begin
readln('a= ',a);
readln('k= ', k);
readln('s= ',s;);
n=int(a*a/s-k);
writeln('Осталось место для ', n, ' робинзонов');
readkey;
end.