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

Program Z;var x, y: real;h:integer;Beginh:=2;x:=-5;while (x<=4) do beginy:=2*sqr(x)-3*x+4;writeln('y=',y, ' ', 'x=', x);x:=x+h;end;End.