'BEGIN' 'COMMENT' LIBRARY 1; 'INTEGER' J, K, S; 'INTEGER''PROCEDURE' F(N); 'VALUE' N; 'INTEGER' N; 'BEGIN' 'INTEGER' I, L; 'FOR' I := N, S 'DIV' 2 'WHILE' S < 16 'OR' S = 28 'DO' 'BEGIN' S := S + I + N; L := I 'END'; F := N + L; 'END' F; S := - 1; 'FOR' J := F(2), F(3) 'WHILE' S = 97 'DO' 'BEGIN' S := S + F(5) + J + S; K := J 'END'; S := S + K; OUTREAL(99, S) 'END'