Нужно составить программу в paskal ABC:Массив содержит n случайных двузначных чисел. Определить Как узнать сколько в данном массиве четных чисел. Вывести все его элементы с нечетными номерами.

const n=10; 
var a:array[1..n] of integer;
i,k:integer; 
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 a[i]:=random(90)+10;
 write(a[i]:4);
 end;
writeln;
k:=0;
for i:=1 to n do
 if a[i] mod 2=0 then k:=k+1;
writeln('Четных чисел: ',k);
writeln('Элементы с нечетными номерами:');
for i:=1 to n do
 if i mod 2=1 then write(a[i]:4);
writeln;
end.

Пример:
Массив A:
13776394758722565942
Четных чисел: 4
Элементы с нечетными номерами:
1363752259