Помогите пожалуйста, 11 класс

var a,x,z:integer;

b,w,c,d:real;

begin

readln(a,x,z);

b:=9*a-a*a-3*x/sqr(z)+(9*a+3*x)*z*z;

writeln(b:0:1);

w:=(z+b*sqr(a)-z/3.3+sqr(z)/3-(b-a)*(b-a)*(b-a)/55)/(z-z*z);

writeln(w:0:3);

c:=(b-w*w)/(a*a-b)-((w-b)/(a+b*b)*(7*a))+(b-a+x)/(a+b*b-x);

writeln(c:0:1);

d:=b/(23*x)-5*sqr(a)*c-17.75/(sqr(x)*b);

writeln(d:0:1)

end.