Идет k-ая секунда суток. Определить, сколько полных часов и полных минут прошло к этому моменту от начала суток.
Program begin_19-
var k:integer-
begin
writeln(‘введите число секунд’)-
readln(k)-
writeln(k div 3600,’ полных часов, ‘, k div 60,’ полных минут)-
readln-
end.