PROGRAM Conversion_con_errores ! Variables INTEGER :: h, m, s INTEGER :: h, mok, sok ! Introduccion de datos PRIN*,'Dame las horas, min y seg ' READ*, h, m, s ! Ajuste de las horas sok = mod(s,60) m = m + s/60 mok = mod(m,60) hok = h + m/60 ! Salida de datos PRINT*,"El tiempo normalizado es:" PRINT*,hok,'h',mok,' m y',sok,' s END