'BEGIN' 'COMMENT' 'LIBRARY' 1; 'INTEGER' I, J, K, M; 'INTEGER' 'PROCEDURE' GPPS(I, N, V, Z); 'INTEGER' I, N, V, Z; 'BEGIN' 'FOR' I := 1 'STEP' 1 'UNTIL' N 'DO' V := Z; GPPS := 1 'END'; 'FOR' M := 1 'STEP' 1 'UNTIL' 25 'DO' 'BEGIN' I := GPPS(I, M + 1, K, 'IF' I = 1 'THEN' 1 'ELSE' K + GPPS(J, K - 1, J, 'IF' (K + 1) - (J + 1) * ((K + 1) 'DIV' (J + 1)) # 0 'THEN' J 'ELSE' K * GPPS(J, 1, I, I - 1))); OUTREAL(99, K) 'END' 'END'