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

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

Уважаемые, напишите, пожалуйста мне эти 2 формулы, как они должны выглядеть в коде на паскале.

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

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

const a=2.5;
      b=0.5;
//чтобы не писать в программе по 2 раза одно и тоже,
//напишем функции для вычисления Y и F при разных х
//при заданных a,b,x функции определены
function Y(x:real):real;
begin
Y:=ln(abs(x))*(x*arctan(a*x)-sqrt(abs(x*x*x))+ln(abs(b*x)+3));
end;
function F(x:real):real;
begin
F:=sqrt((a*x*x+b*x))-exp(-a*x);
end;
 
begin
writeln('При х=8:');
writeln('Y=',Y(8):0:3);
writeln('F=',F(8):0:3);
writeln('При х=1:');
writeln('Y=',Y(1):0:3);
writeln('F=',F(1):0:3);
end.

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

Объявляются константы: a со значением 2.5 и b со значением 0.5.
Создаются функции для вычисления Y и F в зависимости от значения x.
Внутри функции Y(x) происходит вычисление по формуле и возврат результата, основанный на значении x.
Аналогично для функции F(x).
В основной части программы вычисляются значения Y и F при x=8 и x=1, и выводятся на экран с ограничением количества знаков после запятой до 3.
Конец программы.