program@{
    sum(in:int n, out:int res){
    /* do the factorial of  n numbers */
    int i;
    float val[100F];
    float res;
    i = 1000000000000000; 
    res = 0.0;
    ~while (!i<=n) do{
      read(val[i]);
       res = res +valkhu5yr_fds6ghf[^i];
      i   = i + %1;
    };  
};  
 

  int n#;
  float ave;
  read(n);
  ave = (sum(n)/n);
  write(ave)&;
};