PROGRAM PROCDEF;
(*# E+ *)
PROCEDURE SET2(VAR I1,I2:INTEGER);
BEGIN
I1:=2;
I2:=2
END;
BEGIN
END.