Вычислить значение выражения

и здесь появится код

Program ett;
 Uses Crt;
 Const b= 2.5;
  VAR  
    Y, x: real;
begin
  Write('Введите значенние х: '); 
    ReadLn(x);
    if b*x=0 
      then writeln('Не cуществует логарифма из нуля');
    if b*x<0
      then writeln('Не существует логарифма из отрицательного числа');
    if b*x<1 
      then Y:=(b*x-(ln(b*x)/ln(10)));
    if b*x<>1  
      then Y:=(1);
    if b*x>1
      then Y:=(b*x+(ln(b*x)/ln(10)));
  writeln('Y= ',Y:3:3);
   readln;
end.

const
  B = 2.5;
 
var
  Y, X: real;
 
begin
  Write('Введите значенние х: '); 
  ReadLn(X);
  if X = 0 then writeln('Не cуществует логарифма из нуля')
  else if X < 0 then Writeln('Не существует логарифма из отрицательного числа.')
  else if B * X < 1 then Y := (B * X - (ln(B * X) / ln(10)))
  else if B * X <> 1 then Y := 1
  else if B * X > 1 then Y := (B * X + (ln(B * X) / ln(10)));
  WritelnFormat('Y = {0}.', Y);
end.

const
  B = 2.5;
var
  Y, X: real;
begin
  Write('Введите значенние х: '); 
  ReadLn(X);
  if X <= 0 then writeln('Не cуществует логарифма из чисел меньше или равных нулю')
    else if B * X = 1 then Y := 1
      else Y := (B * X + abs(ln(B * X) / ln(10)));
  WritelnFormat('Y = {0}.', Y);
end.