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.

Объяснение:

стр1: 'дерево';

стр2: 'обработка';

стр3: стр1+стр2;

                      стр3: ='деревообработка';

varn: integer; beginreadln(n); n: = n div 10; n: =(n div 100)*10 +n mod 10; writeln(n); n: = (n mod 10)*100+ ((n mod 100) div 10)*10+ n div 100; writeln(n); end.