Написать программку решения задачки в Pascal ABC. Задача: Занятия в школе

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.