Написать программу, которая вычисляет среднее арифметическое вводимой с клавиатуры последовательности дробных чисел. Количество чисел должно задаваться во время работы программы. (цикл для) (паскаль)

Var n, i: integer;

sr: real;

a: array [1 ... 10000] of real;

begin

//запрос необходимых характеристик

Write ('Введите количество чисел: '); Readln (n);

Writeln ('Введите числа');

For i:=1 to n do readln (a[i]);

//вычисление среднего арифметического

sr:=0;

For i:=1 to n do sr:=sr+a[i];

sr:=sr/n;

//вывод

Writeln ('Среднее арифметическое введённых чисел равно ', sr:4:3);

end.