program priemery;
  const MAXCISIEL=20;

  {novy typ pre pole}
  type polecisiel=array[1..MAXCISIEL] of real;

  var n:integer;
      cislo:real;
      cisla:polecisiel;
      sucet:real;
      i:integer;

{ak mame pom:polecisiel a pom2:polecisiel, potom
 pom:=pom2
}

function sucetpola(pole:polecisiel):real;
  var i:integer;
      vysledok:real;
begin
  vysledok:=0;
  for i:=1 to n do begin
    vysledok:=vysledok + pole[i];
  end;
  sucetpola:=vysledok;
end;

{
procedure suma(a:integer; b:integer);
begin
  writeln(a + b);
end;

function summa(a:integer; b:integer):integer;
begin
  summa:=a+b;
end;
}


begin
  writeln('Zadaj pocet cisiel:');
  readln(n);
  for i:=1 to n do begin
    repeat
      write('Zadaj ', i, '-te cislo (musi byt kladne):');
      readln(cisla[i]);
    until cisla[i]>0;
  end;

  cislo:=sucetpola(cisla);


  writeln('Pocitame aritmeticky priemer');
  writeln('Aritmeticky priemer je ', sucetpola(cisla) / n);
end.