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

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.

var n, t: integer;
begin
  repeat
    write('Введите номер урока от 1 до 6 n = ');
    readln(n)
  until n in [1..6];
  t := 500 + 55 * (n - 1);
  write(t div 60, '-', t mod 60)
end.

var n, t, m: integer;
begin
  repeat
    write('Введите номер урока от 1 до 6 n = ');
    readln(n)
  until n in [1..6];
  t := 500 + 55 * (n - 1);
  m := t mod 60;
  write(t div 60, '-');
  if m < 10 then write(0);
  write(m)
end.