Сцикла while вычислить y=2x^2-3x+4 x[-5; 4], h=2

Program Z;
var x, y: real;
h:integer;
Begin
h:=2;
x:=-5;
while (x<=4) do begin
y:=2*sqr(x)-3*x+4;
writeln('y=',y, ' ', 'x=', x);
x:=x+h;

end;
End.