Помогите решить плиз....

Question

Помогите решить плиз....

---

Answer 1

Var
   x,y:real;
Begin
Write('x = ');
ReadLn(x);
if x < -1 then
   if x = -1 then WriteLn('Ошибка: На ноль делить нельзя!')
   else y:=(x*x+5)/(x+1)
else
   if x = -2 then WriteLn('Ошибка: Нельзя взять логарифм от нуля!')
   else y:=Ln(Abs(x+2));
WriteLn('y = ',y);
End.