Введите x, вычислите Z если x допустимое значение, если нет то пишем x- имеет...

Question

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

Answer 1

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

Comments

после else просит оператор