Іть написати програму мовою паскаль за цією ! на одному маленькому квадратному безлюдному острові зі стороною а м. перебували к робінзонів. чи не порушені їхні права на житло, якщо на кожного робінзона повино придбати 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.

на pascal:

program sonik;

uses crt;

var a,b,c: string;

begin

readln (a);   readln (b);   readln (c);

writeln (' фигуры: ',a,b,c);

end.

в десятичной:

45 = (4*8)^1 + (5*8)^0 = 32 + 1 = 33

106 = (1*8)^2 + (0*8)^1 + (6*8)^0 = 64 + 1 = 65

в двоичной:

45 = 101101

106 = 1101010