program u62a;
var a,b,c,d:integer;
procedure increment(var x:integer;y:integer);
begin
x:=x+y;
y:=y+1; {this actually won't have an affect.}
end;

begin
write('enter in the first number and second numbers ');
read(a);
read(b);
increment(a,b);
writeln;write(' a is now ',a);writeln;
write('b is now ',b);
write('enter in the third and fourth numbers ');
read(c);
read(d);
increment(c,d);
writeln;write (' c is now ',c);writeln;
write(' d is now d ',d);writeln;
end.