PROGRAM PARAMTEST(OUTPUT);
VAR I:INTEGER;
PROCEDURE MULTINT(VAR I:INTEGER);EXTERN;
BEGIN
I:=10;
WRITELN('CALLING MULTINT');
MULTINT(I);
WRITELN(I);
END.