#include <stdio.h>
int T[17],S[17],i,j,k,l,m,n,jo,s,meg,meret,max,sok;
unsigned long int darab[1000];
FILE *szamok;
main(){
szamok=fopen("darabd.txt","w");
meret=13;
max=(meret*(meret-1))/2;   for (i=1;i<=max;i++) darab[i]=0;
sok=meret;
i=1;
T[1]=1;
s=0;
while (i){
jo=0;
 if (i==sok) {
    S[1]=T[1]+1;
    for (k=1;k<meret-1;k++) S[T[k]+1]=T[k+1]+1;
    S[T[meret-1]+1]=1;
    s=0;
    for (k=1;k<meret;k++) for (l=k+1;l<=meret;l++) if (S[k]>S[l]) s++;
    darab[s]++;
    i--;i--;T[i]=T[i]+1;
    }
  else if (T[i]==sok) {i--;T[i]=T[i]+1;}
  else if (i==1) {i++;T[2]=1;}
  else {j=T[i];m=i;meg=1;while (meg){m--;
	if (m) {n=T[m]; if(n==j)meg=0;} else meg=0;
	}
	if (m) T[i]=j+1; else {i++;T[i]=1;}}
	}
fprintf(szamok,"n=%d\ninverzioszam     darabszam\n",meret);
for (i=1;i<=max;i++)
fprintf(szamok,"%03d              %lu\n",i,darab[i]);
fflush(szamok);
}