LGLcn6 - Online Pascal Compiler & Debugging Tool

program paletta;
var N,i0 ,i, z, dimpari, dimdispari:Longint;
    V,P,pari, dispari, controllo: array  of longint;
    numero_ribaltamenti, piccolidopo,maggioriprima,fuoriposto:int64;

function SOMMA(X:longint):int64;
 begin
    SOMMA:=0;
	while (X > 0) 	do
	   begin
	    SOMMA:=SOMMA+controllo[X];
	    X:= X- (X and (X+1)) -1 ;
	   end
 end;
Procedure modifica(X:longint; D:longint);
  begin
     	while (X <=D) 	do
        	begin
	          controllo[X]:=controllo[X]+1;
	          X:=X +(X OR X+1);
	       end
  end;


begin
    (*assign(input, 'input.txt'); reset(input);
    assign(output, 'output.txt'); rewrite(output);*)
        { Reading input }
	readln( N);
	Setlength(V, N);
	for i0 := 0 to N-1 do
	begin
		read(V[i0]);
	end;
	readln;
   if N mod 2 = 0 then begin dimpari:=N div 2; dimdispari:= dimpari; end
                 else begin dimdispari:=N div 2 ; dimpari:= dimdispari  +1; end;
   Setlength(pari, dimpari);
   Setlength(dispari, dimdispari);
   Setlength(controllo, N);
   for i:=0 to N  do controllo[i]:=0;
   for i:=0 to N -1 do if i mod 2 =0 then pari[i div 2]:=V[i] div 2 ;
   for i:=0 to N -1 do if i mod 2 <> 0 then dispari[i div 2]:=(V[i] -1) div 2 ;
   for i:= 0 to dimpari-1 do write(pari[i]);  writeln;
   for i:= 0 to dimdispari-1 do write(dispari[i]); writeln;
   for z := 0 to N-1 do
   if (V[z] mod 2 <> z mod 2) then begin writeln(-1) ; exit; end;

    i:=0;
    while i<=dimpari do
            begin
	       piccolidopo:=0; maggioriprima:=0; fuoriposto:=0;
	       modifica (controllo[i],N);
	        piccolidopo:=pari[i]-somma(pari[i]);
	       maggioriprima:=i-pari[i]+piccolidopo;
	       fuoriposto:=maggioriprima+piccolidopo;

	       i:=i+1;
	     end;
	     write (fuoriposto,' ');
end.