program W implicit none integer::a read*,a print"(i0,A,i2.2)",10+a/100,":",mod(a,100)/10*6 end program W