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>
Он должен отрубить все головы, даже если останется одна голова узмеии появятся и другие головы.
Опечатка? Если объем равен 24 байта, значит закодировано 24/2 = 12 символов. Если нужно найти сколько байт потребуется на 24 символа - то 24*2 = 48 байт.