program main implicit none integer::a,i,j read*,a a=a/10!a=1が6分 i=10+(a/10) j=mod(a*6,60) write(*,"(i0)",advance="no")(i/10) write(*,"(i0)",advance="no")mod(i,10) write(*,"(a)",advance="no")":" write(*,"(i0)",advance="no")j/10 write(*,"(i0)",advance="no")mod(j,10) print*,"" end program