chomp(my $t=<>);
my $s = $t % 60; $t = int ($t/60);
my $m = $t % 60; $t = int ($t/60);
my $h = $t % 24; $t = int ($t/24);
print "$t Tage, $h Stunden, $m Minuten, $s Sekunden";