Program P101;
 { Parametru valoare şi parametru variabilă }
var a, b : integer;

procedure P(x : integer; var y : integer);
begin
 x:=x+1;
 y:=y+1;
 writeln('x=', x, ' y=', y);
end; { P }

begin
 a:=5;
 b:=9;
 P(a, b);
 writeln('a=', a, ' b=', b);
 readln;
end.