RosettaCodeData/Task/Loops-Do-while/ALGOL-60/loops-do-while.alg

11 lines
183 B
Plaintext

'BEGIN' 'COMMENT' Loops DoWhile - Algol60 - 22/06/2018;
'INTEGER' I;
I:=0;
LOOP:
I:=I+1;
'IF' I=I'/'6*6 'THEN' 'GOTO' LAB;
OUTINTEGER(1,I);
'GOTO' LOOP;
LAB:
'END'