Напишите это пожалуйста ** языке Pascal

Question

Напишите это пожалуйста на языке Pascal

---

Answer 1

Program z1;
Var
x,y:real;
begin
Readln(x);
If (x-4>=0)and(x+8<>0) then begin y:=sqrt(x-4)/(x+8);
Writeln(y);
end;
else writeln('не решается');
end.

Должно работать)

Comments

Выдаёт ошибку: Встречено 'else' а ожидался оператор(

---

Я изменила кое что

---

Побруйте ввести

---

Спасибо, всё работает)