. посчитайте

Program abc;

var a, b, t:real;

begin

Readln(a,b);

t:=(sqrt(a)*a-sqrt(b)+44)/(4*a+8*b+sqrt(a));

Writeln(t);

end.