Задача. 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.