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

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.