PascalABC.NET
begin
var k := 3 * 3600 + 40 * 60 + 57;
println('H =',k div 3600, newline + 'M =', Trunc(k mod 3600 / 60));
end.
PascalABC.NET
begin
var k := 3 * 3600 + 40 * 60 + 57;
println('H =',k div 3600, newline + 'M =', Trunc(k mod 3600 / 60));
end.