Ответ:

var

tmp:real;

i,j:integer;

begin

tmp:=1;

i:=1;

j:=1;

while(i<=20) do

begin

while(j<i) do

begin

tmp:=tmp*10;

j:=j+1;

end;

writeln('10^'+i+' = '+tmp);

i:=i+1;

end;

end.

Объяснение:

Алгоритм достаточно понятен.