var x,i:integer;
begin
writeln('2 ^ 0= 1');
x:=2;
for i:=1 to 10 do
writeln('2^', i:2, ' = ', x);
x:=x*2;
end;
end.
Лучше так
