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

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.