---

Solutions de l'exercice 5 du  TP n°2 (informatique en S1 DEUG MAIS+MASS)

---

PROGRAM TP2exc5 ;

VAR T, H, M, S : integer ;

BEGIN
repeat
write('temps en secondes (valeurs entières) ? ') ; readln(T) ;
until (T>=0) ;
S:=T mod 60 ;
M:=(T div 60) mod 60 ;
H:=(T div 3600) ;
writeln('temps "HMS" : ',H,'h ',M,'mn ',S, 's.') ;
END.

---