Идёт k-я секунда суток. Определить, сколько полных часов (H) и полных минут (M) прошло к этому моменту.

Program Pr1;uses crt;var k:integer;Beginclrscr;readln(k);writeln('minut proshlo ',k div 60);writeln('chasov proschlo ',Trunc(k/60) div 60);end.

var k:integer;beginreadln(k);writeln('H=',k div 3600);while k>=3600 do k:=k-3600;writeln('M=',k div 60);end.