Решите чему будет равен х и у programp2; var a,b,a1,b1: real; procedure sd (x,y: real; var p,q: real); begin p: =(x+y)/2; q: =(x-y)/2; end; begin a: =2; b: =-4 sd(a,b,a1,b1); writeln ('a', a: 5: 2,'b='b: 5: 2, 'al=',al: 5: 2,'bl=',bl: 5: 2); sd(a,b,b1,a1); writeln('a=',a: 5: 2, 'b=', b: 5: 2, 'al=',al: 5: 2, 'bl=', b1: 5: 2); end.