pascalabcnet/InstallerSamples/!Tutorial/06_ForWhileRepeat/while2.pas

// Цикл while. Степени 2
begin
  writeln('Степени 2');
  var i := 1;
  var p := 1;
  while i<32 do
  begin
    writeln(i:2,p:12);
    i += 1;
    p *= 2;
  end;
end.