Добрый день. В номере 3763(А.Кабанов) получается ответ 4576 800. В чём моя ошибка ? 
 const n=1000; 
 var m:array[1..n] of integer; 
 a,i,k,j,p,f,max,l:integer; 
 sr:real; 
 begin 
 assign(input,'26-47.txt'); 
 for i:=1 to n do 
 begin 
 readln(a); 
 m[ i]:=a; 
 end; 
 max:=0; 
 for i:=1 to n-1 do 
 begin 
 for j:=2 to n do 
   begin 
  k:=m[ i]+m[ j]; 
  sr:=k/2; 
  end; 
 for p:=1 to n do  
 begin 
 if m[ p]<sr then inc(f); 
 if (f mod 100=0)and(f>0) then  
 begin 
 inc(l); 
 if f>max then max:=f; 
 end; 
 end; 
 f:=0; 
 end; 
 write(l/2,' ',max); 
 end. 
 

 const 
   n = 1000; 
  
 var 
   m: array[1..n] of integer;  
   i, j, p, f, max, l: integer;  
   sr: real; 
  
 begin 
   assign(input, '26-47.txt'); 
   readln(); 
   for i := 1 to n do readln(m[ i ]); 
   max := 0;  
   l := 0; 
   for i := 1 to n - 1 do  
     for j := i+1 to n do  
     begin 
       f := 0;  
       sr := (m[ i ] + m[j]) / 2;   
       for p := 1 to n do if m[p] < sr then inc(f);  
       if (f mod 100 = 0) and (f > 0) then   
       begin 
         inc(l); 
         if f > max then max := f;  
       end; 
     end;  
   write(l, ' ', max);  
 end. 

 
 f = open('26-47.txt') 
 n=int(f.readline()) 
 L=sorted(int(x) for x in f.read().split()) 
 f.close() 
 num=0 
 kmax=0 
 for i in range(n-1): 
     for j in range(i+1,n): 
         sr=(L[ i]+L[j])/2 
         k=i 
         while L[k]<sr: k+=1 
         if k>0 and k%100==0:         # k>0 можно убрать! 
             num+=1 
             if k>kmax: kmax=k 
 print(num,kmax)