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

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