Pascal :

program xx;
var a:integer;
    t,b,c:real;
begin
readln(a);
b:=a/3600;
c:=b/24;
t:=c/7;
writeln(b:3:2,'hour');
writeln(c:3:2,'day');
writeln(t:3:2,'week');
end.