Программа

Program Pilshikov_5_39 (input,output);
{ Даны целое N>1 и вещественные
  x1, x2, ..., xN. Вычислить

      N
  M=Sum(xi)/N
    i=1

    ┌──────────┐
    │ N
    │Sum(xi-M)¤
    │i=1
  D=│──────────
    √ (N-1)                       }

Var  x,Sum1,Sum2,D:real;
     i,N:integer;

BEGIN
  Write('Введите длину последовательности ');
  Readln(N);
  Sum1:=0;
  Sum2:=0;
  for i:=1 to N do
    Begin
      Write('Введите x',i,' ');
      Readln(x);
      Sum1:=Sum1+Sqr(x);
      Sum2:=Sum2+x
    End;
  D:=Sqrt((Sum1-Sqr(Sum2)/N)/(N-1));
  Writeln('D=',D)
END.