2.7. вычислить значение функции: z=ln(x), если x=≥1; z=1, если -1

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

var
    x: real;

function Z(x: real): real;
begin
    if x >= 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.