PROGRAM Conversion_con_mas_errores ! Variables INTEGER :: h o, m INTEGER :: hok, mok, sok ! Introduccion de datos PRINT *,'Dame las horas, min y seg ' READ *, ho, 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'