На паскале решить . задан целочисленный вектор х размерностью n, представляющий последовательность целых чисел. определить число инверсий в этой последовательности. рекомендации: инверсией считать пару элементов, в которой большее число находится перед меньшим (хi> xj, если i> j)

program vector;

type vect=array[1..100] of integer;

var n,i,k: integer; x: vect;

begin

  writeln('сколько компонентов (n) содержит вектор ? [n< 100]'); readln(n);

  writeln('дайте ',n,' компоненты');

  for i: =1 to n do readln(x[i]);

  {теперь узнаем  сколько у нас будут инверсии}

  for i: =1 to n do

    begin

        if x[i]> x[i+1] then k: =1+k;

    end;

writeln('инверсии - ',k-1); readln;

end.

Program z1; var a,a1,a2,a3,a4: integer; begin         write('a='); readln(a);         a4: =a mod 10;         a: =a div 10;         a3: =a mod 10;         a: =a div 10;         a2: =a mod 10;         a1: =a div 10;         if a1*a2=a3*a4 then begin                 writeln('yes')         end         else begin                 writeln('no')         end;         readln end.

Program z1; var s: integer; i,j: byte; begin         s: =0;         for i: =5 to 20 do begin                 for j: =1 to i do begin                         if (i mod j)=0 then begin                                 s: =s+j                         end                 end         end;         write('summa=',s);         readln end.