В соревнованиях по прыжкам в длину участвуют 25 спортсменов, с клавиаиуры ввести номер спортсмена и его результат ( номер

program zz1;var a, b, n, i, max, min:integer; // задаем переменные целого типаbeginmax:=0; min:=100000;for i:=1 to 25 dobeginwrite(\' введите результат \',i,\' -го спортсмена \'); // вводим с клавиатуры числоread(n); if n > max then begin max:=n;b:=i;end; // проверяем, если число больше максимального, то записываем его в максимальное и запоминаем номерif n < min then begin min:=n;b:=i;end; // проверяем, если число меньше минимального, то записываем его в минимальное и запоминаем номерend;write(\' результат лучшего спортсмена = \', max, \' его номер = \', b); //выводим ответыwrite(\' результат худшего спортсмена = \', min, \' его номер = \', b); end.