Скласти програму мовою Паскаль для табулювання функції у(х) на проміжку [-5;4] з кроком, 0,5​

Program zero;

Var y:Real; x:Integer;

Begin

x:=-5;

While x<=4 do

Begin

If x<0 then

y:=Sqr(x) - 1

else y:=Sqrt(2*x+1);

Writeln('x = ', x, ' y =', y);

x:=x+0,5

End;

Readln

End.