dim a as integer