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.

Объяснение:

компьютер входит в состав бытовой техники.

компьютер является надсистемой для компьтерных программ.

а после 18 какое число идет? ? если 108 ,то тогда получается так 2*3=6, 3*6=18, 6*18=108,получается что первое число умножается на второе,второе на третье,третье на четверное и т.д