Дано натуральное число Х. Вычислить 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.