Untitled

Algoritmo calcular_viaje
    Escribir "¿A que velocidad va? (km/h)"
    Leer velocidad
    
    Si velocidad <= 0 Entonces
        Escribir "La velocidad debe ser mayor que 0."
    Sino
        Escribir "¿A que distancia está de su destino? (km)"
        Leer distancia
        
        Si distancia < 0 Entonces
            Escribir "La distancia no puede ser negativa."
        Sino
            tiempo_aproximado <- distancia / velocidad
            horas <- Trunc(tiempo_aproximado)
            minutos <- (tiempo_aproximado - horas) * 60
            
            Si minutos >= 60 Entonces
                horas <- horas + 1
                minutos <- minutos - 60
            FinSi
            
            Escribir "Va a llegar a su destino en ", horas, " horas y ", minutos, " minutos."
        FinSi
    FinSi
FinAlgoritmo