const
  n = 50;// количество элементов массиваvar
  a: array [1..n] of integer;
  i, sum: integer;
  cr: real;// среднее арифметическоеbegin
  for i := 3 to n do
    a[i] := random(1000);  // Диапазон рандомных чисел
  readln(a[1]);  // 1 элемент массива
  readln(a[2]);  // 2 элемент массива
  for i := 1 to n do
    sum := sum + a[i];
  cr := sum / n;
  writeln(a);
  writeln(sum);
  writeln(cr);
end.