Pascal. Задача 3-1

Вывести первые 16 значений степени числа 2.

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