Module work

real p
logical is_Pol, not_Pol

real eps_num

integer n
real, allocatable :: coef(:), coef_1(:)

integer order
real a1, a2, a3, alfa, beta, gama
end module work
