Question

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

Answer 1

По этому алгоритму результат получается:
x=4y=20
x=4y=20