PROGRAM EXTERN3(OUTPUT);
VAR I:INTEGER;
%KEYEDENTRY ON
PROCEDURE EXFUNC(VAR OP:TEXT);
BEGIN
WRITELN(OP,'OUTPUT FROM FUNC');
WRITELN(OP,'I =',I);
END;
BEGIN
I:=1;
WRITELN('I = ',I);
END.