'BEGIN' 'COMMENT' 'LIBRARY' 1; 'INTEGER' I, P; I := 0; 'FOR' P := 1 'STEP' 1 'UNTIL' 4 'DO' 'BEGIN' 'OWN' 'INTEGER' I; 'IF' P = 1 'THEN' I := 3 'ELSE' I := 2 * I; 'BEGIN' 'OWN' 'INTEGER' J, I; 'IF' I = 0 'THEN' J := 4 'ELSE' J := 4 * I; OUTREAL(99, J); 'END'; I := 0; 'END'; I := 0; 'END'