Задачка вроде простая,а написать не могу( - Pascal

Вычислить значение выражения по формуле(все переменные принимают действительные значения): а=(2cos(x-∏/6))/((1/2)+(sin^2)*y)

Листинг программы

uses crt;
var x,y,a:real;
begin
writeln('Введите x,y');
readln(x,y);
a:=2*cos(x-pi/6)/(1/2+sqr(sin(y)));
write('a=',a:0:3);
end.

Объяснение кода листинга программы

В начале кода подключается модуль CRT (Console Report Target), который позволяет работать с консолью.
Затем объявляются три переменные типа real: x, y и a.
Далее выводится сообщение с просьбой ввести значения для x и y.
После ввода значений они сохраняются в переменных x и y соответственно.
Затем вычисляется значение переменной a по формуле: a = 2*cos(x-pi/6)/(1/2+sqr(sin(y))).
Полученное значение приводится к типу string и выводится на экран вместе с дополнительной информацией.