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.

Объяснение:

var ch,n,i: longint;

ch1,s: string;

begin

  read(s,ch);

  n: =length(s);

  writeln(n,' ',ch);

  str(ch,ch1);

  for i: =1 to n do if s[i]=ch1 then write(i,' ');

end.

состояние тропосферы в данной местности и в данное время называеться погодой