Составьте программу вычисления количества трехзначных чисел у которых Сумма цифр является четным числом

Var i,a,b,c,kol:integer;
 begin
for i:=100 to 900 
 do begin
 a:=i div 100;
 b:= (i div 10) mod 10;
 c:= i mod 10;
 if (a+b+c) mod 2=0
  then kol+=1;
end;
writeln(kol);
end.