4. Скласти програму для розв’язування задачі: йде N-а секунда суток, визначити скільки повних годин і повних хвилин пройшло до цього моменту.

var a,b,c:integer;beginwriteln('Введите номер секунды');readln(a);b:=a div 3600;c:=(a - 3600*b) div 60;writeln(b,' ч ',c,' мин');end.