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