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

var h1, m1, n, d, p, h2, m2: integer;

begin

write ('начало занятий (часы, минуты) : ') ; readln (h1, m1) ;

write ('количество уроков: ') ; readln (n) ;

write ('длительность уроков: ') ; readln (d) ;

write ('длительность перемен: ') ; readln (p) ;

m2:=m1+n*d + (n-1) * p;

h2:=h1+m2 div 60;

m2:=m2 mod 60;

writeln ('время окончания занятий: ', h2,' часов ', m2,' минут') ;

end.

начало занятий (часы, минуты) : 9 30

количество уроков: 4

длительность уроков: 45

длительность перемен: 10

время окончания занятий: 13 часов 0 минут