Информатика

Гуня

27 марта, 08:37

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