program powers_of_two;vari, power: integer;beginpower := 1;for i := 0 to 10 dobeginwriteln('2^', i, ' = ', power);power := power * 2;end;end.
program powers_of_two;
var
i, power: integer;
begin
power := 1;
for i := 0 to 10 do
begin
writeln('2^', i, ' = ', power);
power := power * 2;
end;
end.