Pascal. Задача 1-10

С начала суток прошло n минут (вводит пользователь). Определить, сколько часов и минут будут показывать электронные часы в этот момент. Вывести два числа: количество часов (0 - 23) и количество минут (0 - 59).

Примечание: Число n может быть больше, чем количество минут в сутках.

Решение

var
  n : integer;
begin
  write('Количество минут? ');
  read(n);
  // Если прошло более суток, то оставим в переменной n только количество минут текущих суток
  n := n mod (24*60);
  writeln('Количество часов: ', n div 60);
  writeln('Количество минут: ', n mod 60);
end.

◄▲►