[Microsoft]

Попробуй
for i := 1 to 21 do if a[i] = 0 then break else if (a[i] mod 2) = 0 then s := s + a[i];