34 балла!!!!!Срочно Пожалуйста посчитайте задачу по Информатике.

Program n1;
var a,b,c,s,k,y: real;
begin
readln(a,b,c);
s:=sqrt(a+sqr(b)*b)/sqrt(c);
k:=sqrt(abs(a*b-sqr(c)*c))+s/(2*a);
y:=3*s*k-s/(b+a);
write(y);
end.