Codigo

algoritmo "Tempo no banco"
var
   hent, ment, hsai, the, ths, msai, res, resh, resm: real
inicio
repita
      escreva("Insira a hora de chegada ao banco: ")
      leia (hent)
ate ((hent>0) e (hent<=24))
repita
      escreva ("Insira os minutos da chegada ao banco: ")
      leia(ment)
ate ((ment>0) e (ment<=60))

repita
      escreva("Insira a hora de saida do banco: ")
      leia (hsai)
ate ((hsai>0) e (hsai<=24))
repita
      escreva ("Insira os minutos da saida do banco: ")
      leia(msai)
ate ((msai>0) e (msai<=60))
the<- (hent*60) + ment
ths<- (hsai*60) + msai
res<- ths-the
resh<- res/60
resm<- res%60
escreva ("Voce passou", resh, ":", resm, " no banco")
fimalgoritmo