Создать массив натуральных четных чисел длины n, и вывести сумму элементов. можно блок схему.

Const n=20;
var a:array[1..n] of integer;
i,s:integer;
begin
s:=0;
for i:=1 to n do begin
readln(a[i]);
if a[i] mod 2<>0 then begin
writeln('вы ввели нечетное число. введите заного');
readln(a[i]); end;
s:=s+a[i];
end;
writeln(s);
end.