program mang;
uses crt;
var X:array [1..500] of real;
      n,i: integer;
      T: real;
Begin
         clrscr;
         write('Nhap so phan tu: '); readln(n);
         for i:=1 to n do
         begin 
                  write('X[',i,']='); readln(X[i]);
                  T:=T+X[i];
         end;
         write('Trung binh cong cac so thuc = ',T/n:2:2);
         readln
End.