Разработать алгоритм и составить программу вычисления значений по формулам: p=(a+)^2+a cos(a+b)+акореньb/a+b, где a=x+y, b=x^2+y^2

Var p,a,b,x,y:real;
Begin
Write('x = ');
ReadLn(x);
Write('y = ');
ReadLn(y);
a:=x+y;
b:=x*x+y*y;
p:=Sqr(a)+a*Cos(a+b)+a*Sqrt(b)/(a+b);
WriteLn('a = ',a);
WriteLn('b = ',b);
WriteLn('p = ',p);
End.