Первое и третье, все остальное бесконечно
Var a,b:array[1..25] of integer;
i,min,max:integer;
begin
max:=1;
min:=1;
for i:=1 to 25 do begin
read(a[i]);
read(b[i]);
if a[i]>a[max] then max:=i;
if a[i]<a[min] then min:=i;
end;
writeln('Лучший - ',a[max],' длина - ',b[max]);
writeln('Худший - ',a[min],' длина - ',b[min]);
<span>end.</span>
Это что..................
Зрение; с помощью глаз люди различают цвета, воспринимают зрительную информацию, к которой относятся и текстовая, и числовая, и графическая;
слух; уши помогают воспринимать звуковую информацию – речь, музыку, звуковые сигналы, шум;
обоняние; с помощью носа люди получают информацию о запахах окружающего мира;
вкус; вкусовые рецепторы языка дают возможность получить информацию о том, каков предмет на вкус – горький, кислый, сладкий, соленый;
осязание; кончиками пальцев (или просто кожей), наощупь можно получить информацию о температуре предмета – горячий он или холодный, о качестве его поверхности – гладкий или шершавый.