Neykel Если я тебя правильно поняла, то держи:) 
var   i, kol: integer;   
       a: array[1..10] of integer; 
  begin   
      for i:=1 to 10 do readln(a[i]);   
      kol:=0;   
      for i:=1 to 10 do    
             if a[i]>5 then kol:=kol+1;  
      writeln('  ', kol); 
  end.