Информатика. 8 класс.на паскале сделать прогу : вывести на экран последовательно все степени двойки от 1 до 1024.​

===== PascalABC.NET =====

begin

 SeqWhile(1, p -> 2 * p, p -> p <= 1024).Print

end.

program step_2;

var

i,s:integer;

begin

s:=1;

for i:=1 to 10 do

begin

writeln(i:2,'-',s:3);

s:=s*2;

end;

readln;

end.