В компьютер поступают результаты соревнований по плаванию(количество минут и секунд) для трёх спортсменов. Составьте программу,которая выводит на экран лучший результат.

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.