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

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.