Subgrupos abelianos

Aumente una funcion que calcule los subgrupos abelianos de un grupo