'BEGIN' 'INTEGER' 'ARRAY' A(/1 : 9/); 'INTEGER' I, S; 'PROCEDURE' DUMMY(A); 'VALUE' A; 'ARRAY' A; SUM(A); 'PROCEDURE' SUM(A); 'ARRAY' A; 'FOR' I := 1 'STEP' 1 'UNTIL' 9 'DO' 'BEGIN' S := S + A(/I/); A(/I/):= 0 'END'; S := 0; 'FOR' I := 1 'STEP' 1 'UNTIL' 9 'DO' A(/I/):= I; DUMMY(A); OUTREAL(99,S); 'FOR' I := 1 'STEP' 1 'UNTIL' 9 'DO' 'IF' A(/I/)# I 'THEN' OUTREAL(99,I) 'END'