Помогите пожалуйста срочно нужно!

Program task; var a,b,x: real; begin writeln ('a? '); readln (a); writeln ('b? '); readln (b); writeln ('x? '); readln (x); writeln (a*a*a — b*b*sin (x)*cos (x) / (a+b): 0:4); readln; end.