program TenPower;
vari: Integer;result: Int64;
beginresult := 1;
for i := 0 to 20 dobeginwriteln('10^', i, ' = ', result);result := result * 10;end;
end.
program TenPower;
var
i: Integer;
result: Int64;
begin
result := 1;
for i := 0 to 20 do
begin
writeln('10^', i, ' = ', result);
result := result * 10;
end;
end.