Вводится начало занятий h1 - часов, m1- минут, n- количество уроков, d- длительность уроков, p-длительность перемен (считаем, что все перемены одинаковой длительности). Найти время окончания занятий: h2-часов, m2-минут.

program w;    var h1,m1,h2,m2,mm1,mm2,n,d,p:integer;begin;    write('Введите время начала уроков: ');    readln(h1,m1);    write('Введите длину уроков: ');    readln(d);    write('Введите длину перемен: ');    readln(p);    write('Введите кол-во уроков: ');    readln(n);    mm1:=m1+h1*60;    mm2:=mm1+d*n+p*(n-1);    h2:=mm2 div 60;    m2:=mm2 mod 60;    write('Уроки закончатся в ', h2, 'часов ', m2, 'минут.');end.