Среди 10 чисел,введенных с клавиатуры,найти сумму тех,которые кратны 2.Программа в паскале)

Program n1; var a,i,sum: integer; begin sum:=0; for i:=1 to 10 do begin readln(a); if a mod 2=0 then sum:=sum+a; end; writeln(sum); end.