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

program zz1;
const n = 3; // задаем количество частей в массиве
var i, j, k,v:integer; // задаем переменные целого типа
a:array [1..n] of integer;
begin
for i:=1 to n do // получаем n чисел с клавиатуры и записываем их в массив
read(a[i]);
for i:=1 to n do
if a[i] = 0 then k:=k+1 else v:=v+1; // проверяем, если элемент массива равен нулю, то считаем один ответ, если не равен нулю, то иной
writeln( количество нулей в массиве = , k); // выводим ответы
write( количество единиц в массиве = , v);
end.