Witch game

/usr/bin/ld.bfd: warning: output/link.res contains output sections; did you forget -T?

  const MAX_N = 100000;
  
  function Choose ( k , n : Int64 ) : Int64;
  begin
    Choose := ( n * ( n - 1 ) * ( n - 2 ) div ( 6 ) );
  end;
  
  var N : LongInt;
      
	  E : array [ 1 .. MAX_N ] of LongInt;
	  
	  Light , Dark : array [ 1 .. MAX_N ] of LongInt;
  
  
  function NOT_MONO() : Int64;
    var i : LongInt;
	    res : Int64;
  begin
    res := 0;
	
	for i := 1 to N do
	begin
	  //writeLn ( Light[i] , ' ' , Dark[i] );
	  res += Int64(Light[i]) * Int64(Dark[i]);
	end;
	
	
	exit ( res div 2 );
	
  end;
  
  function Triangle (  ) : LongInt;
    var v , a , b , c : LongInt;
	    res : LongInt;
  begin
    res := 0;
	
	
	
    for v := 1 to N do
	begin
	  
	  a := v;
	  b := E[v];
	  c := E[b];
	  
	  if ( a <> b ) and ( b <> c ) and ( E[c] = a ) then
	    inc ( res );
	  
	  
	end;
	
	
	exit ( res div 3 );
  end;
  
  procedure app ( v : LongInt );
  begin
   inc ( Light[v] );
   dec ( Dark[v] );
  end;
  
  var i : LongInt;
      Ans : Int64;
	  tmp : LongInt;
begin
  readLn ( N );
  
  for i := 1 to N do
    Dark[i] := N-1;
  for i := 1 to N do
    Light[i] := 0;
  
  for i := 1 to N do
  begin
    read ( E[i] );
  end;
  
  for i := 1 to N do
  begin
    tmp := E[i];
	if ( E[tmp] = i ) then
	begin
	  if ( tmp > i ) then
	  begin
	    app ( i );
		app ( tmp );
	  end;
	end
	else
	begin
	  app ( i );
	  app ( tmp );
	end;
  end;
  
  
  
  Ans := Choose ( 3 , N ) - NOT_MONO() - TRIANGLE();
  
  //writeLn ( Choose(3,N) , ' - ' , NOT_MONO() , ' - ' , TRIANGLE() );
  
  writeLn ( Ans );
 
end.

Test 1

Group: 1

Verdict: ACCEPTED

Test 2

Group: 1

Verdict: ACCEPTED

Test 3

Group: 1

Verdict: ACCEPTED

Test 4

Group: 1

Verdict: ACCEPTED

Test 5

Group: 1

Verdict: ACCEPTED

Test 6

Group: 2

Verdict: ACCEPTED

Test 7

Group: 2

Verdict: ACCEPTED

Test 8

Group: 2

Verdict: ACCEPTED

Test 9

Group: 2

Verdict: ACCEPTED

Test 10

Group: 2

Verdict: ACCEPTED

Test 11

Group: 3

Verdict: ACCEPTED

Test 12

Group: 3

Verdict: ACCEPTED

Test 13

Group: 3

Verdict: ACCEPTED

Test 14

Group: 3

Verdict: ACCEPTED

Test 15

Group: 3

Verdict: ACCEPTED