Fortran90在1~500中找出能同时满足