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

считаем:

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.

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