program xxx;
<span>const n=30;
</span>
<span>var
a : array [1..n] of integer;
i, kn, kd : integer;
begin
</span>
<span> readln(n);
</span>
<span> kn:=0;</span>
<span> kd:=0;
for i:=1 to n do
begin
</span>
<span> write('a[',i,']=');
</span>
<span> readln (a[i]);</span>
<span> if a[i]=0 then kn:=kn+1;</span>
<span> if a[i]=2 then kd:=kd+1;
end;</span>
<span><span> for i:=1 to n do
</span> write(a[i], ' ');
</span>
<span> writeln();
writeln('Количество чисел равных 0 -',kn);</span>
<span><span> writeln('Количество чисел равных 2 -',kd);</span>
readln();
end.</span>