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