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

Var n,i: integer; avg: real; a: array [1..10000] of integer;begin//запрос необходимых характеристикWrite(\'Введите количество чисел: \'); Readln(n);Writeln(\'Введите числа\');i:=n;While (n>0) do begin readln(a[n]); n:=n-1; end;//вычисление среднего арифметическогоavg:=0;For n:=1 to i do avg:=avg+a[n];avg:=avg/n;//выводWriteln (\'Среднее арифметическое введённых чисел равно \', avg:4:3);end.