Дано натуральное число х. вычислить y = 1 - 2x + 3x2(в квадрате) - 4x3(в третьей степени). разрешается использовать не более 8 арифметических операций. допустимы: операции сложение, вычитание, умножение. протестировать программу для x=0, x=1, x=-2.

Var
    step: array[1..8] of real;
    i, x: integer;

begin
    readln(x);
    
    step[1] := 1 - x;
    step[2] := step[1] * step[1];
    step[3] := step[2] * step[1];
    step[4] := 3 * x;
    step[5] := step[4] * x;
    step[6] := 1 - step[5];
    step[7] := step[6] * x;
    step[8] := step[3] + step[7];
    
    for i := 1 to 8 do
        write(step[i], ' ');
end.