RosettaCodeData/Task/Loops-Downward-for/ALGOL-60/loops-downward-for.alg
2018-08-17 15:15:24 +01:00

5 lines
143 B
Text

'BEGIN' 'COMMENT' Loops/Downward for - Algol60 - 23/06/2018;
'INTEGER' I;
'FOR' I := 10 'STEP' -1 'UNTIL' 0 'DO'
OUTINTEGER(1,I)
'END'