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

При вызове процедуры p1 со значениями 2, 2 a будет присвоено √2 (1,414213),b- √2+2(3,414213). а при вызове процедуры p2 a присвоено √2 (1,414213),b- √2+2 (3,414213)После выполнения операторов writeln на экране появится следующее:x=1,414213 y=3,414213x=1,414213 y=3,414213Строки будут одинаковыми так как значения a и b совпадают . Так как точность вычисления не задана, будет использована точность по умолчанию.