Идет k-ая секунда суток. Определить сколько полных часов(Н) и полных минут(М) прошло к этому моменту.Например: Н=3 и М=40, если К=13257=3*3600+40*60+57

                                 PascalABC.NET

begin

 var k := 3 * 3600 + 40 * 60 + 57;

 println('H =',k div 3600, newline + 'M =', Trunc(k mod 3600 / 60));

end.