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

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