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