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