Идёт k-я секунда суток. разработать программу, которая по введённой 5-й секунде суток определяет, сколько целых часов h и целых минут с начала суток. выведите на экран фразу: it is … hours … minutes. вместо многоточий программа должна выводить значения h и m, отделяя их от слов ровно одним пробелом. напишите подробно
var k,h,m: integer;
begin
write('Введите k: ');
readln(k);
h:=k div 3600;
m:=(k - h)div 60;
write('It is ',h,' hours ',m,' minutes');
end.