algoritmo "algoritmo1"
var
    hora_de_entrada, hora_de_saida, horas, minuto_de_entrada, minuto_de_saida : inteiro
    minutos : inteiro
inicio
    escreva("Digite o valor do hora de entrada: ")
    leia(hora_de_entrada)
    escreva("Digite o valor do hora de saida: ")
    leia(hora_de_saida)
    escreva("Digite o valor do minuto de entrada: ")
    leia(minuto_de_entrada)
    escreva("Digite o valor do minuto de saida: ")
    leia(minuto_de_saida)
    minutos <- hora_de_saida*60+minuto_de_saida-hora_de_entrada*60-minuto_de_entrada
    horas <- (minutos-minutos%60) div 60
    minutos <- minutos%60
    escreval("O valor do horas: ", horas)
    escreval("O valor do minutos: ", minutos)
fimalgoritmo