function polynom
flag = 0;

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

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

endfunction