Ввести с клавиатуры 10 произвольных чисел, вычислить сумму чётных среди них. (тема: накопление суммы)

Var a,b,sum:integer;
       begin
sum:=0;
for a:=0 to 9 do begin
  read(b);
  if (b mod 2 =0) then sum:=sum+b;
end;
writeln('сумма  чётных чисел sum=',sum);
end.