program gitgall implicit none integer :: input = -1, max, i integer, allocatable :: list(:) do while (input < 1) read(*,*) input enddo allocate(list(0)) max = input / 2 do i = 1, max if (mod(input,i) == 0) list = [list, i] enddo list = [list, input] print *, list deallocate(list) end program gitgall


포트란임

잘짰는지몰겠네요