Масив x(500) ,необходимо найти количество нулей,і количество ...

Motes

Var
A:array[1..500]of integer;
I,k,kc:integer;
Begin
For i:=1 to 500 do
Read(a[i]);
For i:=1 to 500 do begin
If a[i]=0 then k:=k+1;
If (a[i]0)and(a[i] mod 2 = 0) then kc:=kc+1;
End;
Writeln('количество чётных чисел ',kc);
Writeln('количество нулей ',k);
End.