Введите x, вычислите z если x допустимое значение, если нет то пишем x- имеет недопустимое значение, z вычисляется z=sqrt(x+5)

Var x, z: real;
begin
readln(x);
if x < -5 then writeln('x - недопустимое число');
else z := sqrt(x + 5);
writeln(z);
end.