A:=1, b:=1
While a<=32 do a:=a*2, b:=b*a
Write (b) ​

var

a,b:real;

begin

a:=1;

b:=1;

while a<>0 do

begin

write('Vvedite otricatelnoe 4islo: ');

readln(a);

if a<0 then b:=b*a;

end;

writeln('Proizvedenie otricatelnykh 4isel ravno ',b:5:3);

readln;

end.

Объяснение:

125 -   5/7

  х     - 2/7

х = (125 * 2/7) : 5/7 = 50 человек

program fasf;

var

n,q: integer;

begin

write('введите этаж: ');

readln(n);

q: =n*4;  

writeln('квартиры: ',q,q-1,q-2,q-3);

end.