Pascal. Задача 3-1

var
  i, n : integer;
begin
  n := 1;
  for i := 1 to 16 do begin
    writeln(n);
    n := n * 2;
  end;
end.