Идёт k-я секунда суток. разработайте программу, которая по введённой k-й секунде суток определяет, сколько целых часов h и целых минут с начала суток

Var
k,m,h:integer;
    begin
         readln(k);
               writeln(k div 60, '  минут');
               writeln(k div 3600, '  часов');
end.