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

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.