// PascalABC.NET 3.3, сборка 1576 от 16.11.2017// Внимание! Если программа не работает, обновите версию!Beginvar (a,b,c):=ReadReal3('Введите a,b,c =');var s:= sqrt(3*c*c*c + b * b * b * b * b)/(b-c);var k:= sqrt(s) + abs(-a*b*c);var y:= s + 3*k - (s*s*s*s/(b + c));Writeln('y = ', y);end.