Составить по алгоритму программу на языке программирования Pascal.

var x,z:real;beginwrite('x = ');readln(x);if x<0 then z:=ln(-x)/ln(10) else z:=sqrt(x+1);writeln('z = ',z);end.Пример:x = -100z = 2