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

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

Помогите составить программу для вычисления:

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

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

var x,y,f:real;
begin
writeln('Введите x');
readln(x);
if x>0 then y:=(exp(-x)+exp(x))/2/x
else y:=sqrt(abs(cos(x*x)));
f:=x*x*sin(y*y);
write('f(x,y)=',f:0:2)
end.

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

Создается переменная x типа real, в которую будет записано значение, введенное пользователем.
Создается переменная y типа real.
Создается переменная f типа real.
Выводится сообщение 'Введите x'.
Считывается значение переменной x с помощью функции readln().
Проверяется условие x>0. Если оно истинно, то присваивается переменной y значение (exp(-x)+exp(x))/2/x.
Если условие x>0 ложно, то присваивается переменной y значение sqrt(abs(cos(x*x))).
Присваивается переменной f значение x*x*sin(y*y).
Выводится сообщение f(x,y)=, за которым следует значение переменной f в формате 0:0:2.