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

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))    else Writeln('Функция y(x) не определена при х=0')end.