program Zadacha1;
{$APPTYPE CONSOLE}
var i,n:integer;
begin
writeln('Vvedit kilkist sekund');
readln(n);
i:=n div 3600;
write(i,' Godyn ');
i:=n div 60 mod 60;
write(i,' hvylyn ');
i:=n mod 60;
write(i,' sekund ');
readln;
end.