uses crt;
var s:integer;
begin
clrscr;
gotoxy(27,1);writeln('PROGRAMA QUE TRANSFORMA SEGUNDOS');
writeln;
writeln('ENTRE COM A QUANTIDADE DE SEGUNDOS:');
readln(s);
writeln;
writeln('HORA(S):', s div 3600);
writeln('MINUTO(S):', s mod 3600 div 60);
writeln('SEGUNDOS(S):', s mod 3600 mod 60);
readkey;
end.