Вфайле input.txt имеются следующие записи: 8 18 23 7 13 27 33. нужно составить программу,которая определяет среднее арифметическое чисел файле input.txt. и записывает ответ файл output.txt. первое число файле input.txt указывать на количество чисел, следующих за ним. т.е(нужно 18+23+7+13+27+33 поделить на 6)

Немного непонятно, как 8 может указывать на то, что дальше будет 6 чисел.

python 3:
with open("input.txt") as f:
    numbers = list(map(int, f.read().split()))[1:]
    print(sum(numbers)/len(numbers))

PascalABC.NET 3.2:
begin
  var f := openread('input.txt');
  var n := readinteger(f);
  var sum := 0;
  for var i := 1 to n do
    sum += readinteger(f);
  write(sum / n);
end.

В такой постановке задача решается до смешного просто

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(ReadAllText('input.txt').ToIntegers.Skip(1).Average:0:4)
end.

Пример (для приведенных в задании данных)
20.1667