Дано число n. С начала суток прошло n минут. Обусловьте, сколько

var
q, hour, minut, n:integer;
Сначала определим количество минут в сутках:
60 * 24 = 1440 (мин).
Сейчас, когда пользователь будет вводить число n, программка будет разделять n на 1440 и отдавать остаток:
readln(n);
q:= n mod 1440;
Обретаем целую часть от дробления остатка на 60, где 60 - это количество минут в часе:
hour:= q div 60;
Находим остаток от деления остатка q на количество минут:
minut:= q mod 60;

if hour lt; 10 then
write(0, hour)
else write(hour);

if minut lt; 10 then
write(:0, minut)
else write(:, minut);
end.