Определить ч-полное количество часов и м-полное количество минут прошедшего от начала суток до того момента (в первой половине дня) когда часовая стрелка повернулась на а градусов(0

Попробуйте  а разделть 360

1)  собирается  -  журналист  опрашивает  людей  для  статьи 2)  обрабатывается  -  ученик  решает уравнение 2)    - преподователь  объясняет  материал  3)  создается  -  журналист  придумывает  статью 4)  запоминается  -  парнень запоминает  номер  телефона  девушки 5)  измеряется  -  программист  рассчитывает  сколько  бит  займет  программа 6)  копируется  -  ученик  списывает  у  одноклассника 7)  передается  -  две  девушки  обмениваются  новостями 8)  принимается  -  ученики  слушают  учителя  на  уроке 9)  разрушается -  статья журналиста отвергается 10)  делится  на  части  -  человек  разбирает  сообщение  в  котором  пропущены  пробелы 11)  ищется  -  человек  ищет  материал  для реферата в  интернете

Var       best, m, s,i: integer; begin       best : = 10000000;       for i: = 1 to 3 do begin               write('min sec = ');               readln(m, s);               if best > m * 60 + s then best : = m * 60 + s;       end;             writeln('лучший = ', best div 60, ' min ', best mod 60, ' sec'); end.