===== PascalABC.NET =====
begin
SeqWhile(1, p -> 2 * p, p -> p <= 1024).Print
end.
program step_2;
var
i,s:integer;
s:=1;
for i:=1 to 10 do
writeln(i:2,'-',s:3);
s:=s*2;
end;
readln;
