Algoritmo para ler o horário de entrada e saída de um cliente na fila de um banco e seguida

//Faça um algoritmo para ler o horário de entrada e saída de um cliente na fila de um banco e seguida

//calcular o tempo de permanência do cliente na fila. Cada horário será lido em duas variáveis

//inteiras representando a hora e os minutos. A resposta deve ser dada em horas (ex. 3:10).

program horario_na_fila;

uses crt;

var horaInicio,horaFim,minInicio,minFim,hora,min:integer;

begin

writeln(' -------- Horario Inicial -----');

writeln(' HORA:');

writeln(' MINUTOS:');

readln(horaInicio,minInicio);

minInicio:=horaInicio*60 + minInicio;

writeln(' -------- Horario Final -----');

writeln(' HORA:');

writeln(' MINUTOS:');

readln(horaFim,minFim);

minFim:=horaFim*60 + minFim;

min:=minFim - minInicio;

hora:=min div 60;

min:=min mod 60;

writeln(' RESULTADO: Hora = ', hora,' : ',min);

readkey;

end.