Дан массив А содержащий только 1 и 0
массив заполняется через read и data
определите количество нулей и единиц в этом массиве

CONST n = 9DIM a(n)DATA 1,1,0,1,0,1,0,0,1CLSk0 = 0: k1 = 0FOR i = 1 TO n   READ a(i)   IF a(i) = 0 THEN      k0 = k0 + 1   ELSE      k1 = k1 + 1  END IFNEXT iPRINT "0: "; k0, "1; "; k1