Впаскале: идёт k-я секунда суток. определить который сейчас час (в часах, минутах и секундах). например, если k=13257=3*3600+40*60+57, то часов - 3, минут - 40, секунд - 57.

Var k,h,m,s:integer;
begin
write('Введите число секунд: ');
readln(k);
h:=k div 3600;
k:=k mod 3600;
m:=k div 60;
s:=k mod 60;
writeln('Часов: ',h);
writeln('Минут: ',m);
writeln('Секунд: ',s);
end.