aが実数ならこんな手があります
if a.0*a.1*a.2 : else : mes "0"
>>補足
このやり方は『0には何を掛けても0』、『0以外のどんな数を掛け合わせても0にならない』
という慣例を利用しています。(証明はできません。ごめんなさい)
a.xとは変数aのx番目の要素という意味で『a.0』=『a(0)』です。
そしてif命令は、引数が数値である時に『if x』⇒『if x!0』と補う謎仕様があります。
(余談ですが『stick key : if key&128 : end』のようなstick〜if &構文はこの謎仕様を
利用しています)
つまり、上記の式は
if a.0*a.1*a.2 : else : mes "0"
//⇒ if a.0*a.1*a.2!0 : else : mes "0"
//⇒ if a(0)*a(1)*a(2)!0 : else : mes "0"
と、いう意味になります。尚、aが虚数を含む場合は上記の方法は成立しませんので注意して
ください。