Дан массив целых чисел состоящих из 20 частей заполнить его с

const N = 20;

var a: array [1..N] of integer;

i,s:integer;

begin

for i:=1 to N do read (a[i]);

writeln('Элементы массива: ');

for i:=1 to N do

begin

write(a[i],' ');

if a[i] mod 2 lt;gt; 0 then s:=s+a[i]

end;

writeln;

writeln ('Сумма элементов имеющих нечётное значение одинакова ',s)

end.