pascal Abc. Вычислить среднее значение и дисперсию для заданного массива.

[suggestion]

Разработать алгоритм решения задачи, реализовать его на языке Pascal в виде отдельной функции. Диалог с
пользователем (ввод исходных данных и вывод результата) также оформить в виде отдельных функций.
Вычислить среднее значение x(черта сверху) и дисперсию Dx для заданного массива Xk по
формулам:

[digitalis]

Во фриланс, быстро! Тимуровцы исчезли вместе с пионерами.

[newerow1989]

procedure Vvod(var k:integer; var s1,s2:real);
var x:real;
    i:integer;
begin
   Write('k = '); Readln(k);
   If k<=1 then
      Exit;
   s1:=0;
   s2:=0;
   For i:=0 to k-1 do
   begin
      Write('x',i+1,' = ');
      Readln(x);
      s1:=s1+x;
      s2:=s2+x*x;
   end;
end;

var k:integer;
    s1,s2,x_,Dx:real;
begin
   Vvod(k,s1,s2);
   If k<=1 then
   begin
      Writeln('Error: ',k,' <= 1');
      Readln;
      Exit;
   end;
   x_:=s1/k;
   Writeln('x_ = ',x_:5:8);
   Dx:=s2/(k-1)-s1*s1/k/(k-1);
   Writeln('Dx = ',Dx:5:8);
   Readln;
end.

[digitalis]

Сообщение от digitalis

Тимуровцы исчезли вместе с пионерами.

Виноват, обшибся. Есть ещё добрые люди, что и старушку через дорогу переведут, и задачку за лентяя решат.
А то уже все двоечники всполошились: где Неверов, у нас уже семестр идёт, а он - всё никак

[suggestion]

newerow1989, спасибо огромное