Дан массив от 1 до 10. найти сумму четных элементов массива. паскаль 9 класс

Начало писать не буду.. Там сё элементарно..
...
readln(a);
if(a mod 2=0) then
s:=s+a;
end;
writeln(s);
End.