var  A:array[1..20] of integer;
     i,t:integer;
begin
      Writeln('Massiv A:');
       Writeln;
        Randomize;
         for i:=1 to 20 do
          begin
            A[i]:=Random(50);
             Write(A[i]:3);
          end;
         Writeln;
        Writeln;
      t:=0;
       for i:=2 to 20 do
        if A[i]<A[i-1] then
         begin
           Writeln('( ',A[i-1],'  ',A[i],' )');
            Inc(t);
         end;
        Writeln;
       Writeln('Vsego inversiy = ',t);
      Readln;
end.