9 lines
87 B
Text
9 lines
87 B
Text
var i;
|
|
begin
|
|
i := 1024;
|
|
while i > 0 do
|
|
begin
|
|
! i;
|
|
i := i / 2
|
|
end;
|
|
end.
|