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

Program n1;var a,b,c,s,k,y: real;beginreadln(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.