Дан массив x целых чисел. исключить из него все числа, встречающиеся более двух раз(если такие имеются затем числа, стоящие на четных местах, упорядочить по невозрастаниюпрограмма необходима на языке pascal

Uses crt; const nmax=100;   var x: array[1..nmax] of integer;       n,m,i,j,k,a,p: integer;   begin clrscr; randomize;   repeat write('размер массива от 2 до ',nmax,' n=');   readln(n); until n in [2..nmax]; writeln('исходный массив: '); for i: =1 to n do    begin     x[i]: =random(10);   write(x[i]: 4);   end;   writeln; i: =1; m: =n;   while i< n-1 do    begin    k: =1;     a: =x[i];   for j: =n downto i+1 do     if x[j]=a then k: =k+1;     if k> 2 then      begin      j: =i;         while j< =n do        if x[j]=a then        begin          if j=n then n: =n-1          else          begin            for p: =j to n-1 do          x[p]: =x[p+1];           n: =n-1;           end;       end         else j: =j+1;       end     else i: =i+1;     end; if n=0 then    begin      exit   end;   if n=m then write('все элементы встречены не более 2 раз и не удалены') else    begin  for i: =1 to n do   write(x[i]: 4);   for i: =1 to n-1 do    for j: =i+1 to n do    if(i mod 2=0)and(j mod 2=0) and(x[i]< x[j]) then      begin      a: =x[i];       x[i]: =x[j];       x[j]: =a;       end;     for i: =1 to n do    write(x[i]: 4);     end;

pascalabc.net

function числовторыхмаксимумов(a: array of integer) : =

  a.groupby(p -> p)                 // сгруппировали одинаковые

    .select(p -> (p.count, p.key))   // создали кортежи (кол, значение)

    .orderbydescending(p -> p[1])   // отсортировали по убыванию значений

    .skip(1)                         // пропустили первый элемент

    .take(1)                         // взяли только второй элемент

    .select(p -> p[0]);             // выделили из кортежа количество

begin

  var n: =readinteger('n =');         // длина массива

  var a: =arrrandom(n, 1, 10);       // инициализируем массив

  a.println;                         // выводим его

  числовторыхмаксимумов(a).println   // вызываем функцию, выводим результат

end.  

python:

a = list()

#

for i in range(0, len(a)):

    if a[i]%2==0:

        a[i]*=2

c++:

#include

#include

using std: : cin, std: : cout, std: : endl;

using std: : vector;

int main(){

        vector mas;

        /*

        заполнение массива

        */

        for (auto i = mas.begin(); i

                if(*(i) %2 == 0)

                        (*(i))*=2;

        for (auto var: mas)

                cout < < var < < " ";

        return 0;