Значение функции в зависимости от условия

Program ycloviya;
 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;
 
function Y(x: integer): real;
begin
  var m := B * x;
  if m < 1 then Result := m - Log(m)
  else if m = 1 then Result := 1.0
  else Result := m + Log(m);
end;
 
begin
  WritelnFormat('Y(x) = {0}.', Y(ReadlnInteger('X:')));
end.

function Y(x: real): real;
begin
  var m := B * x; {Запоминаю произведение, чтобы не пересчитывать его снова и снова.}
  if m < 1 then Result := m - Log(m)
  else if m = 1 then Result := 1.0
  else Result := m + Log(m);
end;
 
begin
  WritelnFormat('Y(x) = {0}.', Y(ReadlnReal('X:'))); {ReadlnReal() - прочитать с клавиатуры вещественное число. WritelnFormat(formatstr: string; params args: array of object) -  вывод на экран в соответствии с форматной строкой.}
end.

function Y(x: real): real;
begin
  var m := B * x;
  if m < 1 then Y := m - Log(m)
  else if m = 1 then Y := 1.0
  else Y := m + Log(m);
end;

function Y(x: real): real;
const B = 2.5;
begin
  Result := B * x;
  if Result < 1 
    then Result := Result - Log(Result)
    else if Result > 1 
      then Result := Result + Log(Result)
end;