Вычислить значение функции - Pascal ABC (13521)

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

помогите составить программу

Решение задачи: «Вычислить значение функции»

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

function y(x:real):real;
begin
if x<-pi/2 then y:=-2*sin(x*x*x)
else y:=14*cos(3*x);
end;
begin
writeln('При х=3 y=',y(3):0:3);
writeln('При х=-3.6 y=',y(-3.6):0:3);
writeln('При х=2.6 y=',y(2.6):0:3);
writeln('При х=0 y=',y(0):0:3);
end.

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

Создаётся функция y, которая принимает один аргумент типа real и возвращает значение типа real.
В условии if проверяется значение аргумента x. Если x меньше или равно pi/2, то выполняется блок кода внутри скобок и возвращается значение y. Иначе, выполняется блок кода внутри else и возвращается значение y.
В блоке else выполняется вычисление значения y по формуле y = 14 cos(3 x).
Вычисляется значение y при x = 3.
Вычисляется значение y при x = -3.6.
Вычисляется значение y при x = 2.6.
Вычисляется значение y при x = 0.
Выводится значение y при x = 3.
Выводится значение y при x = -3.6.
Выводится значение y при x = 2.6.
Выводится значение y при x = 0.