Program HMS;
Uses Crt;
Var  AUX,h,m,s,segundos : integer;
Begin;
Clrscr;
WriteLn('Dime una cantidad de segundos : ');
Read(segundos);
AUX:= segundos MOD 60;
s:= AUX;
AUX:= segundos DIV 60;
m:= AUX MOD 60;
h:= AUX DIV 60;
WriteLn('En ', segundos, ' segundos hay');
WriteLn(h, ' horas');
WriteLn(m, ' minutos');
WriteLn(s, ' segundos');


ReadKey
End.

