{* Задача 348 *}

Unit ZADACH348;
Interface
Implementation
Begin
 writeln('Для заданных N и x1,x2,…хn написать программу, используя подходящую функцию.

 ');
End.

Program zadach348;

Uses zadach348.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Type {* Типы переменных *}
  mas = Array[1..10] Of real;
Var {* В работе нам потребуются переменные: *}
  m1             : real;
  m2             : real;
  m3             : real;
  c              : real;
  z              : real;
  j              : integer;
  n              : integer;
  x              : mas;
Function sum(x : mas;
p              : real;
k              : integer);
n              : integer);
Var {* Необходимые переменные *}
  i  : integer;
  j  : integer;
  s  : real;
  pr : real;
Begin
  s := 0;
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  Begin
    pr := 1;
    For j := 1 To k Do {* Переменная j увеличивается с 1 до k *}
      pr := pr * (x[i] - p);
    s := s + pr
  End;
  sum := s / n
End;
Begin
  clrscr; {* Очищаем экран *}
  writeln('enter n');
  readln(n);
  writeln('enter the String Of numbers');
  For j := 1 To n Do {* Переменная j увеличивается с 1 до n *}
    read(x[j]);
  m1 := sum(x, 0, 1, n);
  m2 := sum(x, m1, 2, n);
  m3 := sum(x, m2, 3, n);
  writeln(m1 : 2:2);
  writeln(m2 : 2:2);
  writeln(m3 : 2:2);
  readkey; {* Нажмите любую клавишу *}
End.