'BEGIN' PROG : 'BEGIN' 'COMMENT' LIBRARY 1; 'INTEGER'N,I; 'PROCEDURE' Q; 'BEGIN' 'ARRAY' A, D[1 : 1, 1 : N], E[0 : 0]; 'PROCEDURE' P(X, L); 'LABEL' L; 'INTEGER''PROCEDURE' X; 'COMMENT' (F1,G1): 'VALUE' F1: 'REAL' F1,G1; B : 'FOR' I := 1 'STEP' 1 'UNTIL' N, I + 1 'DO' C : 'GOTO' 'IF' X(A[1, 1] + I, 0) = 0 'THEN' L 'ELSE' R; M :; A[1, 1] := N; P(IN, PROG) 'END' Q; 'INTEGER''PROCEDURE' IN(F, G); 'VALUE' F; 'REAL' F, G; N := IN := 1; N := 2; OUTREAL(99, 1); Q; OUTREAL(99, 2); R :; OUTREAL(99, 3); 'END' 'END'