Заменить четные элементы на 0 — QBasic(Бейсик)

disel 
`заполните массив
FOR i=1 TO n
IF a(i) MOD 2 = 0 THEN a(i)=0
NEXT i
`выведите на экран