ИВТ 8 класс Найти W зная a,b,c Если можно,то побыстрее

var a,b,c,w:real; begin writeln('a, b, c:'); readln(a,b,c); w:=sqrt(a*a+b*b+4*a*b*c)/(a*a+4*a*a*b*b+c*c)+abs(a)+abs(b); writeln('w = ',w); end. Пример: a, b, c: -2 -5 4 w = 7.0327326835354