'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' 'INTEGER' J, I; J := 4; I := 0 'END'; OUTREAL(99, I); 'END'; 'END'