Дан одномерный массив из целых чисел. Сколько элементов, ...

Сергей

program xxx;

const n=30;

var   a : array [1..n] of integer;   i, kn, kd : integer;begin

   readln(n);

   kn:=0;

   kd:=0;    for i:=1 to n do     begin

       write('a[',i,']=');

       readln (a[i]);

       if a[i]=0 then kn:=kn+1;

       if a[i]=2 then kd:=kd+1;     end;

   for i:=1 to n do       write(a[i], ' ');

   writeln();   writeln('Количество чисел равных 0 -',kn);

   writeln('Количество чисел равных 2 -',kd);   readln();end.