Дан массив целых чисел найти:1) сумму честных частей 2)вывести все четные

const n=10;

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

i,k,x,s:integer;

begin

write('Массив: ');

for i:=1 to n do

begin

a[i]:=random(22)-3;

write(a[i],' ')

end;

writeln;

write('X = ');

readln (x);

write ('Чётные элементы: ');

for i:=1 to n do

begin

if a[i] mod 2 = 0 then

begin

s:=s+a[i];

write(a[i],' ')

end;

if a[i] mod x = 0 then k:=k+1

end;

writeln;

writeln ('Сумма чётных элементов:',s);

writeln ('Количество частей кратных ',x,' одинаково: ',k);

end.