Для вектора с n случайными значениями найти среднее V и среднее квадратическое отклонение от среднего. Корень квадратный (1/n * сумма(от i=1 до n) (V(с индексом i) — V)в квадрате) — Pascal(Паскаль)

const
  maxn = 1000;

var
  mas: array [1 .. maxn] of real;
  average, k, l, sum: real;
  i, n: longint;

begin
  randomize;
  write('Vvedite kol-vo elementov N: ');
  readln(n);
  sum := 0;
  for i := 1 to n do
  begin
    mas[i] := random(maxn);
    sum := sum + mas[i];
  end;
  average := sum / n;
  l := 0;
  for i := 1 to n do
  begin
    k := mas[i] - average;
    k := k * k;
    l := l + k;
  end;
  l := l / n;
  l := sqrt(l);
  writeln('dlya vektora iz ', n, ' chisel: ');
  for i := 1 to n do
    write(mas[i]:0:0, ' ');
  writeln;
  writeln('Srednee = ', average:0:3);
  writeln('Srednee kvadr otkl ot srednego = ', l:0:3);
  readln;

end.