составить программу вычисления значения функции y=3x^2-x+2 если x(-2;2) и изменяется с шагом x=0,4

var    y, x, h: real;begin    x := -2.0;    h := 0.4;    repeat        y := 3 * x * x - x + 2;        writeln(x, ' ', y);        x := x + h;    until x > 2end.