Вычислить y=1/ (a+1)…

var x,y: real cоnst a=-3; b=1; h=0,1; function f (x: real): real begin f (x): =4*x*x-2*x+5; end; begin x: =a; while x <= b do begin y: =f (x); x: =x+h; writeln (y); end; end.