Паскаль! 1. подсчитать среднее арифметическое натуральных чисел, принадлежащих диапазону от 1 до n

Const
  k = 15;

var
  x: array[1..k] of integer;
  i, n, m: integer;

begin
  Randomize;
  Write('Введите значение N -> ');
  Readln(n);
  Write('Элементы массива: ');
  m := 0;
  for i := 1 to k do
  begin
    x[i] := Random(n + 1) + 1;
    m := m + x[i];
    Write(x[i]:4);
  end;
  Writeln;
  Writeln('Среднее арифметическое равно ', m / k:0:4)
end.

Тестовое решение:

Введите значение N -> 50
Элементы массива:   22  31   1  35  18  41   1  35  46  12  48  27  35  37  29
Среднее арифметическое равно 27.8667