Создать программу которую с клавиатуры вводится количество секунд, прошедших с начало суток, определить кол-во полных часов и мин. Прошедших сначало суток

var s,m,h:integer;beginreadln(s);h:=s div 3600;m:=(s-h*3600) div 60;if m=60 then begin;  inc(h);  m:=0; end;writeln(h,':',m);end.