>>306
了解です。
しかし、Pascalのcase文がまさにそれなのですが、実際使うとbeginとendがうざいです。

case X of
1:
　Write("○");
2, 3:
　begin
　　Write("×");
　　Write("□");
　end;
else
　Write("△");
end;

同じレベルの処理のはずなのに、複数の文があるというだけでインデントされ前後に2行無駄な行が…