Последовательно ввести n чисел, определить сколько среди них было введено четных (с оператором repeat и на abcpascal)

1). по назначению (гражданскому или военному):   грузовые, легковые, повышенной проходимости, автобусы, спортивные, бронированные, амфибии, самосвалы и т.п. 2). по типу двигателя: бензиновые, газовые, газогенераторные, дизельные, водородные, электромобили.  3). по конструкции: праворульные и леворульные, с ручной или автоматической коробкой передач. 4) по типу кузова: седан, универсал, хэтчбэк, купе, лимузин и т.д. все перечисленные множества являются подмножествами множества автомобилей.

Var i,n,k: integer;       a: array[1..100] of integer; begin   write('n = ');   readln(n);   randomize;   writeln('исходный массив: ');   for i: =1 to n do   begin       a[i]: =random(100)-50;       write(a[i],' ');   end;   writeln;   writeln('новый массив: ');   for i: =1 to n div 2 do   begin       k: =a[i];       a[i]: =a[n-i+1];       a[n-i+1]: =k;   end;   for i: =1 to n do write(a[i],' '); end. n = 10 исходный массив: 45 -29 -25 12 -38 5 15 16 47 -36 новый массив: -36 47 16 15 5 -38 12 -25 -29 45