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