Помогите пожалуйста решить задачку №9. Нужно написать решение так, будто решаешь…

Var a, b, x, y, d: real; begin a: =3,2; b: =17,5; x: =-4,8; y: =Power (sin (x) / cos (x) , 2) — a / Power (x / a, 2); d: =a*exp (-1*sqrt (a)*cos (b*x / a); writeln ('y=', y, #13, 'd=', d); end.