PROGRAM CALLTEST(OUTPUT);
VAR FIVE:INTEGER;
FUNCTION SET5:INTEGER;
BEGIN
SET5:=5;
END;
FUNCTION CALLFUNC(FUNCTION FUNC:INTEGER):INTEGER;EXTERN;
BEGIN
WRITELN('CALLING CALLFUNC');
FIVE:=CALLFUNC(SET5);
WRITELN('FIVE=',FIVE);
WRITELN('DID IT WORK');
END.