Составьте программу , которая с тремя произвольными числами f ,g и e введенными с клавиатуры , производит вычисления по следущим формулам:

var f,g,e:integer;a,x,w,h:real;begin readln(f,g,e); a:=((power(f-g,3)-7)/power(g+e,2))-7*((e*f-power(f,2*(g/3)))/(25-g)); writeln(a:10:8); x:= (power(43,2)*a)-power(42,2)*(g/27.3)+((16+g)/(g-e)); writeln(x:10:8); w:=(x/100)+(power(25,2)/x)+(a/(3*f))-((g+power(e,2))/(e+power(g,2))); writeln(w:10:8); h:=g-power(f,2)-((7*power(e,2)*w)/3)-(power(x,2)/(4.5*f*e)); writeln(h); readlnend.