10 lines
183 B
Text
10 lines
183 B
Text
'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'
|