RosettaCodeData/Task/Loops-While/ALGOL-68/loops-while.alg

6 lines
63 B
Plaintext

INT i := 1024;
WHILE i > 0 DO
print(i);
i := i OVER 2
OD