Составить программу вычисления значения функции 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 > 2
end.