PROGRAM EXTERN3(OUTPUT);
(*# E+ *)
PROCEDURE FUNC;
VAR N:INTEGER;
    INPUT,OUTPUT:TEXT;
BEGIN
READLN(INPUT,N);
WRITELN(OUTPUT,'FROM FUNC,N= ',N:4)
END;
BEGIN
WRITELN('CALLING FUNC');
FUNC;
WRITELN('DID IT WORK');
END.