Вводится начало занятий 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.