Вычислить значение переменных, указанных в таблице - Pascal ABC

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

Помогите пожалуйста!!

Решение задачи: «Вычислить значение переменных, указанных в таблице»

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

uses crt;
var
y,d,a,b,x: real;
begin
a:=3.2;
b:=17.5;
x:=-4.8;
y:=b*power(sin(x),3)/power(cos(x),3)-(a+b)/(power(sin(x/a),2));
d:=a*exp(-sqrt(a))*power(cos(power(b*x/a,3)),2);
writeln('Y = ',y:5:3);
writeln('D = ',d:5:3);
end.

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

В начале кода используется директива uses crt;, которая позволяет использовать функции и структуры из встроенной библиотеки CRT (Console Read/Write).
Далее объявляются переменные y, d, a и b, которые представляют собой числа с плавающей точкой. Значения этих переменных задаются в виде констант: a := 3.2, b := 17.5, x := -4.8.
Затем объявляется переменная y, которая представляет собой результат вычисления выражения b * power(sin(x), 3) / power(cos(x), 3) - (a + b) / (power(sin(x/a), 2)).
Далее объявляется переменная d, которая представляет собой результат вычисления выражения a * exp(-sqrt(a)) * power(cos(power(b*x/a, 3)), 2).
Наконец, выводятся значения переменных Y и D с помощью функции writeln(). Значение переменной y выводится с точностью до 5 знаков после запятой, а значение переменной d выводится с точностью до 3 знаков после запятой.
Конец программы.