Code:

//tich cac phan tu trong list
elementtype tich(list)
{
      elementtype temp=1;
      list p=l->next;
      while(p!=NULL)
        {
            temp *=p->element;
            p=p->next;
          }
    return temp;
}