program indice_equilibrium;

uses crt;
var i,j,k,b1,b2: integer;
    t : Array of integer;
    n : integer;

BEGIN
    Write('give me n: ');
    Readln(n);
    setlength(t, n);

    for i:=1 to n do
      begin
        Write('Give me t[',i,'] :');
        readln(t[i]);
      end;

    ClrScr;
    Writeln('t initalized with :');
    For i:=1 to n do Writeln('t[',i,'] -> ',t[i],' ');
    Writeln('Press enter to continue');
    Readln;
    ClrScr;

    b1:=0;
    b2:=0;
    For i:=1 to n do
      begin
        for j:=1 to i-1 do
          begin
            b1:=b1+t[j];
          end;

          For k:=i+1 to n do
            begin
              b2:=b2+t[k];
            end;

          if b1=b2 then Writeln('t[',i,'] = ',t[i],' is equilibrium')
          else Writeln('There is no equilibrium in this array!');
          b1:=0;
          b2:=0;
      end;
END.