Transforma segundos em horas

[fdantas]

/* ESCREVA UM ALGORITMO QUE LEIA O TEMPO DE DURAÇÃO DE UM EVENTO EM UMA FÁBRICA EXPRESSA EM SEGUNDOS
E MOSTRE-O EXPRESSO EM HORAS, MINUTOS E SEGUNDOS. */

DEF VAR SEG AS INT NO-UNDO.
DEF VAR MI AS INT NO-UNDO.
DEF VAR HR AS INT NO-UNDO.
DEF VAR SEGUND AS INT NO-UNDO.

DISP 'ENTRE COM OS SEGUNDOS ' LABEL '' format "x(53)" .
UPDATE SEGUND LABEL ''.




DO WHILE (SEGUND > 3600) :
ASSIGN SEGUND = SEGUND - 3600.
HR = HR + 1.
END.


DO WHILE (SEGUND > 60) :
ASSIGN SEGUND = SEGUND - 60.
MI = MI + 1.
END.

ASSIGN SEGUND = SEG.


DISP ' O TOTAL DE HORAS É DE: '.
DISP ' ' HR LABEL '' .

DISP ' O TOTAL DE MINUTOS É DE: '.
DISP ' ' MI LABEL '' .



DISP ' O TOTAL DE SEGUNDOS É DE: '.
DISP ' ' SEG LABEL '' .