program main implicit none Integer::i,j,k,n,m Integer::arr(0:4) read*,n do i=0,n-1 read*,arr(i) if(MOD(arr(i),40)==0)then print'("ikisugi")' else if(MOD(arr(i),8)==0)then print'("iki")' else if(MOD(arr(i),10)==0)then print'("sugi")' else print*,arr(i)/3 end if end do end program main