%KEYEDENTRY ON
PROGRAM DEFMULT;
PROCEDURE MULTINT(I:INTEGER);
BEGIN
I:=I*I;
END;
BEGIN
END.