%PROCEDURE SET2(I1,I2); %INTEGER I1,I2; %BEGIN PRINTSTRING(); NEWLINE; I1:=2;I2:=2; %END