Идет N-ая секунда суток. Определить полное количество часов и минут в заданный момент времени, считая от начала суток.
program Number_1_1;
var hour,minute,n:longint;
{Количество секунд в полных сутках равно 86 400, что требует
рассмотрения решения задачи только с длинными целыми}
ch:char;
Begin
writeln(' Работа первой программы');
Repeat
writeln('Ведите значение секунд');
readln(n);
hour:=n div 3600;
minute:= n div 60 -hour*60;
writeln('Получено часов= ',hour,' минут= ',minute);
writeln('Еще хотите проверить время?- y or n');
readln(ch);
until ch='n';
End.