Написать функцию в паскале y=(x+a)^2, если x не равно b x+exp(b), если х=b (как должно быть) рrogram pr2; uses crt; var x,a,y : real; begin clrscr; write(‘ введите х,а’); read(x,a); if x> =a then y: =sin(x)+exp(a) else y: =sqrt(x*x+a*a)-5*a; write(‘ y=’,y); end.