Решить задачу с помощью паскаля. вычислить значения функции: 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.