Разработать функцию, вычисляющую значение арифметического выражения в заданных точках - Pascal ABC

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

Никак не могу написать формулу в паскале( Разработать функцию пользователя, вычисляющую значение арифметического выражения в заданных точках.

Решение задачи: «Разработать функцию, вычисляющую значение арифметического выражения в заданных точках»

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

function y(a,x:real):real;
var t:real;
begin
t:=ln(2*sqr(sin(x)))/ln(10);
y:=sqrt(a*x*x+exp(ln(t)/3))-arctan((a-x)/4.5);
end;
begin
write('y=',y(0.83,1.2):0:3)
end.

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

В данном коде реализована функция Y(a, x), которая вычисляет значение некоторого арифметического выражения в заданных точках a и x.

Задаются два аргумента функции: a и x типа real.
Внутри функции объявляется переменная t типа real.
Значение переменной t вычисляется как ln(2*sqr(sin(x)))/ln(10).
Значение функции Y(a, x) вычисляется как sqrt(axx+exp(ln(t)/3))-arctan((a-x)/4.5).
В основной части программы вызывается функция Y(a, x) с аргументами 0.83 и 1.2.
Результат вычисления функции Y(a, x) выводится на экран с помощью команды write.