In Beitrag #11 habe ich Dir eine schöne leicht verständliche Funktion gegeben.
Dein Problem ist hausgemacht, denn du hast jetzt alles in eine schwer verständliche "Superformel" gepackt,
anstatt das Ergebnis aus einfachen Funktionen zusammenzusetzen.
So sollte es sein (saubere,eindeutige Namen und leicht verständlich):
Alkoholmenge := BerechneAlkImBier(AnzahlBier)+BerechneAlkImWein(AnzahlWein)+BerechneAlkImSchnaps(AnzahlSchnaps);
PS: keine Ahnung, weshalb in deinen Namen das Wort "
Pas" vorkommt (Anspielung auf Pascal?).
Ich kann dir nur empfehlen Variablennamen wie z.B. "AnzahlBier" zu verwenden; dann weiss Jeder was damit gemeint ist.