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.