program main implicit none integer::N,i read *,N select case(N) case(1) print '(i0)',7 case(2) print '(i0)',8 case(3) print '(i0)',9 case(4) print '(i0)',4 case(5) print '(i0)',5 case(6) print '(i0)',6 case(7) print '(i0)',1 case(8) print '(i0)',2 case(9) print '(i0)',3 case(10) print '(i0)',0 end select end program main