Урок в школе продолжается 40 минут, смена 10 минут. Сколько медли

программка

и метод

всё приходится волочить клещами... на каком языке программка?

В интервале между последним уроков и занятиями танцами есть смена?

уроком*

Var n, m: integer;
begin
  write('n = ');
  read(n);
  m := 50 * n + 45;
  write(m div 60);
  case m div 60 of
    1: write(' час ');
    2..4: write(' часа ')
    else write(' часов ');
  end;
  write(m mod 60);
  case m mod 60 of
    1: write(' минутка');
    2..4: write(' минутки');
    else write(' минут');
  end;
end.

Язык не указали, пишу на паскале.
var a,n,r:integer;
begin
Write('Введите кол-во уроков: ');
Readln(n);
for a:=1 to n do
r:= a*40+45+(10*(n-1));
Writeln(r div 60,' Ч. и ',r mod 60,' Мин.');
end.