Для произвольного значения x найти

Var x,z:real; Begin Readln(x); If x<0 then Z:=x/3; If x>=0 then Z:=2+SQRT(x*x*x); Writeln(z); End.

var x,z:real; Begin write('x = '); readln(x); if x<0  then z:=x/3  else z:=2+sqrt(x*x*x); writeln('z = ',z); End. Пример: x = -18 z = -6