Program ConversionHeure;
uses wincrt;
var
H, S, M, sec : integer;

Begin
Repeat
writeln ('Donner le nombre de scondes :');
readln (sec);
until (sec > 0);