Ввести номер урока и вывести время его окончания - Pascal ABC

Формулировка задачи:

Занятия в школе начинаются в 8-30. Урок длится 45 минут, перерывы между уроками – 10 минут. Ввести номер урока и вывести время его окончания.

Пример: Введите номер урока: 6 13-50

Решение задачи: «Ввести номер урока и вывести время его окончания»

Листинг программы

var n,du,dp,tn,tk,h,m:integer;
begin
writeln(' ');
repeat
write('Введите номер урока от 1 до 6 n=');
readln(n);
until n in [1..6];
tn:=480+30; //начало занятий
du:=45; //длина урока
dp:=10; //длина перерыва
if n=1 then tk:=tn+du //первый урок
else tk:=tn+du+(n-1)*(du+dp);//другие
h:=tk div 60;
m:=tk mod 60;
write(h,'-',m);
end.

Объяснение кода листинга программы

Создается переменная n, которая представляет собой целочисленный тип данных и инициализируется значением 0.
Создается переменная du, которая представляет собой целочисленный тип данных и инициализируется значением 45.
Создается переменная dp, которая представляет собой целочисленный тип данных и инициализируется значением 10.
Создается переменная tn, которая представляет собой целочисленный тип данных и инициализируется значением 480+30. Это значение представляет собой время начала занятий.
Выполняется цикл repeat, который продолжается до тех пор, пока введенный пользователем номер урока не будет находиться в диапазоне от 1 до 6.
Внутри цикла выводится сообщение с просьбой ввести номер урока от 1 до 6.
После ввода номера урока, значение переменной n сохраняется в соответствующую переменную tk.
Если номер урока равен 1, то значение переменной tn увеличивается на сумму du и dp.
Если номер урока не равен 1, то значение переменной tn увеличивается на сумму du, n-1 и (n-1)*(du+dp).
Значение переменной tn преобразуется в целую часть числа, используя оператор div со значением 60, и сохраняется в переменной h.
Значение переменной tn преобразуется в остаток от деления на 60 и сохраняется в переменной m.
Выводится результат в формате h-m.