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>
1. <span>2) МАКСИМ
2. </span><span>4) КСЕНИЯ.
3. </span><span>1) ИРИНА
4. </span><span>1) Верблюд
5. </span><span>2) Кенгуру
6. </span><span>4) Страус
7. </span><span>1) ЖАРА
</span>