PROGRAM PROCDEF;
(*# E+ *)
PROCEDURE ADDINT(I:INTEGER;VAR NO:INTEGER);
BEGIN
NO:=10+I;
END;
BEGIN
END.