PROGRAM DEFCALLFUNC;
%KEYEDENTRY ON
PROCEDURE CALLFUNC(FUNCTION FUNC:INTEGER;PARAM:INTEGER;VAR RES:INTEGER);
BEGIN
RES:=FUNC(PARAM);
END;
BEGIN
END.