Экранға қандай нәтиже беріледі? 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.