<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u> <u>Внимание! Если программа не работает, обновите версию!</u>
begin var a,x,z,w:real; Read(a,x,z,w); var b:=((z*z-a*a)*7.5-3*(z**3+w)**2+3*x)/(25*x*a*w+33.7*z*z)*z; var c:=b+a/(5-x/3)**3+120.5*b*x; var e:=(a*b*c-175*a*(b-3))/(a*b*b*c+17*a*z); var f:=2*b+3*e-c*b; Writeln(b:0:5,' ',c:0:3,' ',e:0:4,' ',f:0:3) end.