Составить программу суммы только четных чисел (числа целые) из последовательно вводимых чисел, можно осуществить ввод заказного количества чисел. Помогите, отдаю максимум баллов.

var a,n,s,i:integer;beginwrite('n=');readln(n);s:=0;for i:=1 to n do begin write('a',i,'='); readln(a); if a mod 2 =0 then s:=s+a; end;writeln('s=',s)end.Пример работы программы:n=5a1=15a2=8a3=7a4=6a5=9s=14