Срочно нужна помощь! Программа в Паскаль

приводим уравнение к виду:

$a=\frac{4cos(x-\pi/6)}{2-cos(2y)}$

считаем:

var

x, y, z, a, b : real;

begin

writeln('Введите:');

write('x=');

readln(x);

write('y=');

readln(y);

write('z=');

readln(z);

a := (4*cos(x-pi/6))/(2-cos(2*y));

b := 1+sqr(z)/(3+sqr(z)/5);

writeln('a=', a:0:2);

writeln('b=', b:0:2);

end.

если я не накосячил с расчетами то должно быть как то так.