PROGRAM EXTEST2(INPUT,OUTPUT);
PROCEDURE FUNC(VAR INPUT,OUTPUT:TEXT);
EXTERN;
BEGIN
WRITELN('CALLING FUNC');
FUNC(INPUT,OUTPUT)
END.