Найти сумму только четных чисел среди 10 введённых с клавиатуры

Program prog;
Uses crt;

var i,s,a: integer;

begin
s:=0;

for i:=1 to 10 do
begin
write('NUM',i,' = ');
readln(a);
if ((a mod 2)=0) then s:=s+a;
end;
writeln;
writeln('Sum = ', s);

End.