{* Задача 353 *}

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

');
End.

Program zadach353;

Uses zadach353.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Type {* Создание новых типов данных *}
  t = Array[1..20] Of integer;
Var {* Необходимые переменные *}
  c               : integer;
  n               : integer;
  s1              :  real;
  s2              :  real;
  s3              :  real;
  x               : t;
Function sum (x : t;
n               : integer;
st              : integer;
m               : real);
Var {* Необходимые переменные *}
  i : integer;
  j : integer;
  k : real;
  h : real;
Begin
  h := 0;
  For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
  Begin
    k := 1;
    For j := 1 To st Do {* Переменная j увеличивается с 1 до st *}
      k := k * (x[i] - m);
    h := h + k/i;
  End;
  sum := h;
End;
Begin
  clrscr; {* Очищаем экран *}
  write('n= ');
  readln(n);
  randomize;
  For c := 1 To n Do {* Цикл для c => [1 .. n] *}
  Begin
    x[c] := random(3);
    write(x[c], ' ');
  End;
  writeln; {* Вывод пустой строки *}
  s1 := sum(x, n, 1, 0);
  s2 := sum(x, n, 2, s1);
  s3 := sum(x, n, 3, s2);
  writeln(s1 : 4:4);
  writeln(s2 : 4:4);
  writeln(s3 : 4:4);
  readln; {* Приостановка программы. Ожидание Enter *}
End.