Что выведет последующая программка? Объясните итог. program test;var a,b:

Что выведет последующая программка? Растолкуйте итог.
program test;
var a,b: integer;
procedure p (Var x:integer; y:integer);
begin
x:=x+1; y:=x+y;
end;
begin
a:=1;b:=2;
p(a,b); writeln(a, ,b);
p(a,b); writeln(a, ,b);
readln;
end.
1 2
1 2
2 4
3 7
1 4
1 6
2 2
3 2
Нет правильного ответа