Вшколе n уроков, по длительности м минут, перемены длятся р минут. выведите на экран, что будет через l минут после начала занятий в школе. (n,m,p,l вводятся с клавиатуры)

Var n, m, p, l: integer;
begin
writeln('Введите числа N, M, P, L');
read(n, m, p, l);
if l >= n * m + (n - 1) * p then writeln('Уроки закончились!')
else if (l >= m) and ((l - m) mod (m + p) < p) then writeln('Идет перемена!')
else writeln('Идет урок!')
end.