program kadai5
    implicit none
    integer :: a(1:32) = (/1, 1, 1, 2, 1, 2, 1, 5, 2, 2, 1, 5, 1, 2, 1, 14, 1, 5, 1, 5, 2, 2, 1, 15, 2, 2, 5, 4, 1, 4, 1, 51/)
    integer :: k
    read(*,*) k
    write(*,*) a(k)

end program kadai5

