Что напечатает следующая программа? program p3; var x,y:integer; procedure p1 (var a,b:integer); begin a:=sqr(a); b:=sqr(a)+a; end; procedure p2 (a,b:integer); begin a:=sqr(a); b:=sqr(b)+b; end; begin x:=2; y:=2; p1(x,y); writeln ('x=',x,'y=',y); p2(x,y); writeln ('x=',x,'y=',y); end.