dim a:a=0