6 lines
78 B
Text
6 lines
78 B
Text
|
procedure main()
|
||
|
|
local i
|
||
|
|
i := 1024
|
||
|
|
while write(0 < (i := i / 2))
|
||
|
|
end
|