Составьте программу , которая с тремя произвольными числами а,b и с , введенными с клавиатуры, производит вычисления по следующим формулам:
Во вложении.

vara, b, c, d, e, w, x: real;begin    read(a, b, c);        d := ( (a*a*a) - 17.5*b ) * ( (c + 3.3*b)*(c + 3.3*b)*(c + 3.3*b) );       e := ( (b*c)/(a*d) ) - ( (3 - (d*d)*c) / ( (a*a)*(c*c*c) + ( (c-a+ (d*d) )*(c-a+ (d*d) ) ) ) );       w := ((( 5*d - 28.3 )*( 5*d - 28.3 )*( 5*d - 28.3 )) - e + ((b - (a*a))*(b - (a*a)))) / ( e*a*b + b + ( (a*a)/7 ) ) + 25.75;    x := a + b + (w*w) + ( 7/9 + w );     writeln('d: ', d);     writeln('e: ', e);     writeln('w: ', w);     writeln('x: ', x);end.

Program n1;var a,b,c,d,e,w,x: real;beginreadln(a,b,c);d:=(a*a*a-17.5*b)*sqr(c+3.3*b)*(c+3.3*b);e:=b*c/(a*d)-(3-d*d*c)/(a*a*c*c*c+sqr(c-a+d*d));w:=(sqr(5*d-28.3)*(5*d-28.3)-e+sqr(b-a*a))/(e*a*b+b+a*a/7)+25.75;x:=a+b+w*w+((7/9)+w);writeln(d);writeln(e);writeln(w);writeln(x);end.