Program zadacha;
Var a,t,x:real;
begin
readln(a,x);
t:=1/(2*a)-sqrt(x*x+5)+4*a;
print(t)
end.
Объяснение:
