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

Вопрос школьника по предмету Информатика

среди 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.