1)сначала суток прошло n секунд, определить: сколько полных часов прошло с начала суток, сколько полных минут прошло с начала текущего часа, сколько сколько полных минут прошло с начала очередного ча, сколько секнуд прошло сначала очередной минуты. ( напишите алгоритмом , а не кодом , )

Блок-схема во вложении

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.

writeln('a[',i,']=',a[i]);

readln;

end.