Was ist eigentlich mit CASE?
if x * case idx of 1: 3; 2: 9; else 666 end + 7 = 111 then Beep;
Oh ja, das wäre wünschenswert, aus rein logischer Abstraktions-Sicht, aber damit wird Pascal ganz schön C++-ish

Hoffentlich muss ich diese Zeile nie debuggen