PROGRAM EXTERN2;
%KEYEDENTRY ON
PROCEDURE FUNC(VAR INP,OUT:TEXT);
VAR N:INTEGER;
BEGIN
READLN(INP,N);
WRITELN(OUT,'FROM FUNC, N= ',N:4)
END;
BEGIN
END.