program sasddf;

var
  d, i: integer;
  c: real;
  a: array [1..999999] of integer;

begin
  c := 0;
  writeln('Ââåäèòå êîëè÷åñòâî ÷èñåë');
  readln(d); //êîëè÷åñòâî ÷èñåë
  
  for i := 1 to d do
  begin
    writeln('Ââåäèòå ÷èñëî ¹ ', i);
    readln(a[i]); // ââîä ÷èñëà
    c := c + a[i];//ñóììà âñåõ ÷èñåë
  end;
  for i := 1 to d do
    writeln('×èñëî ¹ ', i, ' - ', a[i]);
  c := c / i;// äåäåíèå ñóììû âñåõ ÷èñåë íà èõ êîëè÷åñòâî
  writeln('Ñðåäíåå àðèôìåòè÷åñêîå = ', c);
end.