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