program qqq;
uses crt;
var n,a:real;
   Begin
clrscr;
writeln('введите кол секунд'); readln(n);
a:=int(n/3600);
writeln (a:5:0);
   end.