Kontrolinis

program U1;
type Pora = record
    Vardai : string;
    Balsai : integer;
    end;

var input,output : textfile;
    Por : Array [1..100] of Pora;
    i,N,M : integer;

procedure ReadX(x : integer;var ats : Pora);
    var a,j,min,max,aa : integer;
        em : string;
    begin
    aa:=0;
    ReadLn(input,ats.Vardai);

    for j:=1 to 2 do
        begin
        min:=999;
        max:=0;
        for i:=1 to x do
            begin
            Read(input,a);
            aa:=aa+a;
            if a < min then
                min:=a;
            if a > max then
                max:=a;
            end;
        aa:=aa-max-min;
        end;
    ReadLn(input,em);
    ats.Balsai:=aa;
    end;



begin
  Assign(input,'U2.txt');
  Reset(input);

  Assign(output,'U2rez.txt');
  Rewrite(output);

  Read(input,N);
  ReadLn(input,M);

  for i:=1 to 0 do
    begin
    ReadX(N,Por[i])
    end;

  ReadX(N,Por[1]);
  ReadX(N,Por[2]);
  ReadX(N,Por[3]);
  ReadX(N,Por[4]);
  ReadX(N,Por[5]);
  ReadX(N,Por[6]);
  ReadX(N,Por[7]);
  ReadX(N,Por[8]);
  ReadX(N,Por[9]);
  ReadX(N,Por[10]);
  ReadX(N,Por[11]);
  ReadX(N,Por[12]);
  ReadX(N,Por[13]);
  ReadX(N,Por[14]);
  ReadX(N,Por[15]);
  ReadX(N,Por[16]);
  ReadX(N,Por[17]);
  ReadX(N,Por[18]);
  ReadX(N,Por[19]);
  ReadX(N,Por[20]);
  ReadX(N,Por[21]);
  ReadX(N,Por[22]);
  ReadX(N,Por[23]);

  for i:=1 to 100 do
      if Por[i].Vardai <> '' then
          begin

            Write(output,Por[i].Vardai);
            Write(output,Por[i].Balsai:10);
            WriteLn(output,'');
          end;
  close(output);
  close(input);
end.