если ты имел в виду чёрные то:
k:=0;
if a mod 2 = 0 then k:=k+1;( k - счетчик)
if b mod 2 = 0 then k:=k+1;
if c mod 2 = 0 then K;=k+1;
write(k);(число чётных)
