for(j = 0;j < n-1;j ++)
for(k = 0;k < n-1-j;k ++)
if(p[k] > p[k + 1])
{
r = p[k + 1];
p[k + 1] = p[k];
p[k] = r;
h = a[k + 1];
a[ k + 1] = a[k];
a[k] = l;
}