Многочлен (17 вар)

function polynom
% Дано: многочлен g(bα² + cα + d) = 0;
% g(bα² + cα + d) = (bα² + cα + d) + 3(bα² + cα + d) + 2;
% {α обозначили как x}
% Требуется проверить: приводимость многочлена g

flag = 0;

for x = 0:4
  for b = 0:4
    for c = 0:4
      for d = 0:4
        g = (b*x^2 + c*x + d)^3 + 3*(b*x^2 + c*x + d) + 2;
        if g == 0
          flag = 1;
        endif
      endfor
    endfor
  endfor
endfor

if flag == 0
  disp("Многочлен неприводим");
else
  disp("Многочлен приводим");
endif

endfunction