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