Program P64;
 { Media aritmetică a n numere }
var x, suma, media : real;
             i, n  : integer;
begin
 write('n='); readln(n);
 suma:=0;
 writeln('Daţi  ', n, '   numere:');
 for i:=1 to n do
   begin
     write('x='); readln(x);
     suma:=suma+x;
   end;
 if n>0 then
            begin
              media:=suma/n;
              writeln('media=', media);
            end
        else writeln('media=*****');
 readln;
end.