Экранға қандай нәтиже беріледі? Var a,b:integer; procedure P(x:integer; var y:integer); Begin x:=x+1; y:=y+1 end; Begin a:=40; b:=40; P(a,b); write(a,b) end.

1) 40 40;

2) 40 41;

3) 41 41;

4) 41 40;

5) 40 0.