// PascalABC.Net
var
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.264
a=-0.084, b=0.102096, p=0.0698222096966505