Задачка. 2.7. Вычислить значение функции: Z=ln(x), если x=1; Z=1,

Формула несколько не совершенно понятна, но если что функцию не трудно переделать

var
    x: real;

function Z(x: real): real;
begin
    if x gt;= 1 then
        Z := ln(x)
    else
        Z := 1;
end;

begin
    x := 1;
    writeln('z(', x, ') = ', z(x));
    
    x := -1;
    writeln('z(', x, ') = ', z(x));
    
    write('x=');
    readln(x);
    writeln('z(', x, ') = ', z(1));
end.