
Что напечатает следующая программа? 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.

Вот что выведет
x=4 y=20
x=4y=20
Оцени ответ