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

Question

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

---

Answer 1

// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=ReadReal('x=');
  Writeln('y=',x<-2?x/(3*x+2):x*x-2)<br>end.

Answer 2

Var x,y:real;

begin
readln(x);
if x>=-2 then y:=sqr(x)-2
else y:=x/(3*x+2);
writeln(y);
end.