Прошу помочь в составлении программы вычисления в Pascal

Question

Прошу помочь в составлении программы вычисления в Pascal

---

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var x:=ReadReal('x=');
  if x>0 then Writeln('y=',x*(x+2))
  else
    if x<0 then Writeln('y=',x*(2*x-0.5))<br>    else Writeln('Функция y(x) не определена при х=0')
end.