Вычислить значения выражений - Pascal ABC (12566)

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

Нужно написать программу, в которой пользователь вводит альфа(alpha), а программа бы считывала z1=cos в квадрате от разности ((3/8)*pi-(alpha/4))-cos в квадрате от суммы ((11/8)*pi+(alpha/4)) z2=(корень из 2-х/2)*sin от дроби (alpha/2)

Решение задачи: «Вычислить значения выражений»

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

var
  a, z1, z2: real;
 
begin
  read(a);
  z1 := cos(3 * pi / 8 - a / 4) * cos(3 * pi / 8 - a / 4) - cos(11 * pi / 8 + a / 4) * cos(11 * pi / 8 + a / 4);
  z2 := 0.5 * sqrt(2) * sin(a / 2);
  writeln(z1);
  writeln(z2);
end.

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

Переменная a читается из ввода.
Функция cos используется для вычисления косинуса числа a/4.
Функция cos используется для вычисления косинуса числа a/4.
Функция cos используется для вычисления косинуса числа 11a/8.
Функция sin используется для вычисления синуса числа a/2.
Значение z1 выводится на экран.
Значение z2 выводится на экран.