10 lines
96 B
Text
10 lines
96 B
Text
|
begin
|
||
|
|
integer i;
|
||
|
|
i:=1024;
|
||
|
|
while i>0 do
|
||
|
|
begin
|
||
|
|
outint(i,5);
|
||
|
|
i:=i//2-1
|
||
|
|
end
|
||
|
|
end
|