Составьте программу вычисления кол-ва трехзначных чисел, у которых сумма цифр является четным числом.
Помогите пожалуйста, а то Паскаль не понимаю, особенно такие задачи... :с

var a,b,c,e:integer;begine:=0; for a:=100 to 999 do begin  c:=a;  while (c<>0) do begin   b:=c mod 10;   e:=b+e;      c:=c div 10;  end;   if (e mod 2 = 0) then writeln(a);   e:=0; end;end.