Program qq;
Const m=10;
Type ar=array[1..m] of integer;
var b,c:real;
    n:ar;
    i:integer;
Begin
      writeln('Введите 10 чисел');
      for i:=1 to m do
      begin
            readln(n[i]);
            b:=b+n[i];
      end;
      c:=b/m;
      writeln('Среднее арефметическое  ', c);
end.