Найти среднее арифметическое значение X и среднее квадратное отклонение σ: Опции

[natali_cortocova]

Мальчики помогите.
Дан массив X(N). Найти среднее арифметическое значение X и среднее квадратное отклонение σ.

[natali_cortocova]

Я плохо знаю что такое отклонение правильно ли оно выводится?

Const
nn=10;

Var
X:array [1..nn] of integer;
i, n :integer;
aver, sigma :real;

begin
Write('Количество элементов? '); Readln(n);
For i:=1 to n do
Read(X[i]);
Readln;

for i := 1 to N do
aver := aver + X[ i ];
aver := aver / N;

for i := 1 to N do
sigma := sigma + sqr(X[ i ] - aver);
sigma := sqrt(sigma / N);

Writeln('среднее арифметическое - ',aver);
Writeln('отклонение - ',sigma);
end.