PROGRAM DEFCALLFUNC;
(*# E+ *)
PROCEDURE CALLFUNC(FUNCTION FUNC:INTEGER;PARAM:INTEGER;VAR RES:INTEGER);
BEGIN
RES:=FUNC(PARAM);
END;
BEGIN
END.