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) print*,i/10,mod(i,10),":",j/10,mod(j,10) end program