---

program Variant12_Task2;

var
  i: Integer;
  p: Int64; { Int64 для предотвращения переполнения при больших степенях }

begin
  p := 1; { 2^0 = 1 }
  
  for i := 0 to 20 do
  begin
    Writeln('2^', i, ' = ', p);
    p := p * 2;
  end;

  Readln;
end.