RosettaCodeData/Task/Flow-control-structures/ALGOL-68/flow-control-structures-1.alg
2023-07-01 13:44:08 -04:00

12 lines
203 B
Text

(
FOR j TO 1000 DO
FOR i TO j-1 DO
IF random > 0.999 THEN
printf(($"Exited when: i="g(0)", j="g(0)l$,i,j));
done
FI
# etc. #
OD
OD;
done: EMPTY
);