[Asinkrit]

разве так не проще?

Код:

z:=Ord(a=0)+Ord(b=0)+Ord(c=0)+Ord(d=0)+Ord(e=0);