Eljárás B-csop(Konst L:Lista)
 Ha Üres?(L) akkor ki:Üres
 Különben Elejére(L)
 Ciklus I=1-től ElemSzám(L)
 x=ElemÉrték(L)
 Ha xmod2=0 akkor osszeg=osszeg+e
 Ha vége
 Ciklus vége
Ki: ossz
Eljárás vége

Eljárás A-csop(Konst L:Lista)
 Ha Üres?(L) akkor ki:Üres
 Különben Elejére(L) min=ElemÉrték(L)
 Ciklus I=1-től ElemSzám(L)
 Ha min>ElemÉrték(L) akkor min=ElemÉrték(L)
 Ha vége
 Ciklus vége
 Ha vége
Ki: min
Eljárás vége