Перевод математического выражения в Паскаль - Turbo Pascal (29219)

Записать функцию b=f(x,y,z) по правилам языка Паскаль b=|x-y|(sin³z+tgz)

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

function f(x,y,z:real):real;
begin
f:=abs(x-y)*(sqr(sin(z))*sin(z)+sin(z)/cos(z));
end;

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

Создается функция с именем f и тремя параметрами типа real.
Внутри функции создается переменная f, которая будет использоваться для хранения результата вычисления.
Вычисляется значение выражения abs(x-y), где x и y - это параметры функции.
Затем вычисляется значение выражения sqr(sin(z)), где z - это параметр функции.
Далее вычисляется значение выражения sin(z)/cos(z), где z - это параметр функции.
Полученные значения подставляются в формулу f=abs(x-y)(sqr(sin(z))sin(z)+sin(z)/cos(z)).
Результат вычисления сохраняется в переменной f.
Функция заканчивается.