Program BTT;
Uses crt;
Var A: array[1..100] of qword;
i,d: byte;
Begin
Clrscr; For i:=1 to 100 do Write(A[i],' ');
d:=0; Writeln;
For i:=1 to 100 do Write('Co ',d,' so chan');
Begin Readln
Write('A[',i,'] = '); End.
Readln(A[i]);
If A[i] mod 2 = 0 then inc(d);
End;
