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