посреди пятизначных чисел вычислить среднее арифметическое чисел сумма цифр которых находится

Попадает ли сумма цифр числа n в диапазон [20;30]-Нет

Это Вы сам с собой разговариваете?))))

это я ответил на вопрос

На какой?

который вы задали в задачке, решение котрый вы теснее напсали

Вы настолько не разбираетесь в программировании, что сочли вопросом комментарий внутри функции, который указывает её назначение. Грустно.

Функция логического типа. Она отвечает на этот вопрос. Когда попадает - возвращает Подлинно, когда не попадает - Фальшиво.

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
function SodGood(n:integer):boolean;
// Попадает ли сумма цифр числа n в спектр [20;30]?
begin
  var s:=0;
  while ngt;0 do begin
    s+=(n mod 10);
    n:=n div 10
    end;
  Result:=(sgt;=20) and (slt;=30)
end;

begin
  Print(Range(10000,99999).Where(n-gt;SodGood(n)).Average)
end.

Результат:
57982.8943738243

Function Check(num : integer) : boolean;
var
  sum : integer;
begin
  while num gt; 0 do
  begin
    sum := sum + num mod 10;
    num := num div 10;
  end;
  
  Result := (sum gt;= 20) and (sum lt;= 30);
end;

var
  i, len : integer;
  sum : real;
begin
  sum := 0;
  len := 0;

  for i := 10000 to 99999 do
  begin
    if Check (i) then
    begin
      len := len + 1;
      sum := sum + i;
    end;
  end;
  
  writeln('Среднее арифметическое: ', sum / len);
end.