решить задание по ИКТ

Если + b отдельное слагаемое то вот так

program z2;

var a, b:integer;

x,y:real;

begin

 writeln('введите a и b');

 readln(a,b);

 x:=((2/(sqr(a)+25)+b))/(sqrt(b)+((a+b)/2));

 y:=(abs(a)+2*sin(b))/(5.5*a);

 writeln( 'x= ',x,' y= ',y);

end.

Объяснение: