// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var n:=Int64(1); Writeln(n);
for var i:=1 to 35 do begin n*=2; Writeln(n) end
end.
Результат:
1
2
4
8
16
32
64
128
256
512
1024
2048
4096
8192
16384
32768
65536
131072
262144
524288
1048576
2097152
4194304
8388608
16777216
33554432
67108864
134217728
268435456
536870912
1073741824
2147483648
4294967296
8589934592
17179869184
34359738368