code pascal giúp mình

Var

   A: array[1..1000,1..3] of longint;

   kq: Longint;

   i,j,k,n: integer;

Begin

  assign(input,'taptran.inp'); Reset(input);

  assign(output,'taptran.out'); rewrite(output);

  Readln(n);

  For i:= 1 to n do

    Begin

    Readln(A[i,1], A[i,2]);

    A[i,3]:=1;

    end;

  i:=1;  Kq:=0;

  While A[i,3]<>-1 do

    Begin

      For j:= i+1 to n do

          If (A[j,3]<>-1) and (A[i,1]=A[j,1]) and (A[i,2]=A[j,2]) then

             Begin

             A[i,3]:= A[i,3]+1;

             A[j,3]:=-1;

             end;

      If A[i,3]>1 then

         For k:= 1 to A[i,3]-1 do

            Kq:=kq+k;

      i:=i+1;

   End;

   Writeln(kq);

   Close(input); Close(output);

End.

Bài này mình không thể chạy dưới 1 giây theo yêu cầu của đề bài

Nếu bạn có thuật toán dễ thở hơn thì cứ việc áp dụng,cái này của mình chỉ tham khảo thôi nhá