Записать тригонометрическую формулу - Pascal

Формулировка задачи:

в общем не знаю как записать формулу в Паскале тригонометрическую, пожалуйста помогите z=cos(в квадрате) ((3/8)pi-(alfa/4))-cos (в квадрате) ((11/8)pi+(alfa/4))

Решение задачи: «Записать тригонометрическую формулу»

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

function Z(const alpha: Real): Real;
begin
    Z := Sqr(Cos(3*PI/8 - alpha/4)) - Sqr(Cos(11*PI/8 + alpha/4));
end;
begin
    WriteLn('Z=', Z(4.1):0:2);
end.

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

Объявляется функция Z с аргументом alpha, который имеет тип данных Real.
В теле функции Z вычисляется значение по формуле:
- Cos(3*PI/8 - alpha/4)
- Cos(11*PI/8 + alpha/4)
Вычисленные значения косинусов возводятся в квадрат при помощи функции Sqr.
Вычитается значение первого выражения из значения второго выражения.
Полученное значение является результатом функции Z.
В основной части программы вызывается функция Z с аргументом 4.1 и выводится значение с точностью до двух знаков после запятой.