Составить алгоритм и программу для предложенного варианта. Исходные данные необходимо подобрать самостоятельно , исходя из допустимой области значений исследуемой функции

// PascalABC.Netvar  x,y,a,b,p:double;begin  Write('Введите через пробел x,y: '); Read(x,y);  a:=x+y; b:=sqr(x)+sqr(y);  p:=sqr(a+b)+arccos(a+b)+a*sqrt(b)/(a+b);  Writeln('a=',a,', b=',b,', p=',p)end.Тестовое решение:Введите через пробел x,y: 0.18 -0.264a=-0.084, b=0.102096, p=0.0698222096966505