program AverageAboveFirst;
var
i, count, sum, firstNum: integer;
number: array[1..10] of integer;
begin
sum := 0;
count := 0;

writeln('Введите 10 чисел:');
for i := 1 to 10 do
begin
readln(number[i]);
end;

firstNum := number[1];

for i := 2 to 10 do
begin
if number[i] > firstNum then
begin
sum := sum + number[i];
count := count + 1;
end;
end;

if count > 0 then
writeln('Среднее арифметическое чисел, которые больше первого: ', sum / count)
else
writeln('Нет чисел, которые больше первого');
end.