program Sachmatai;
type vInfo = record
            Pestininkai : integer;
            Bokstai : integer;
            Zirgai : integer;
            Rikiai : integer;
            Karaliai : integer;
            Valdove : integer;
            end;
type mInfo = vInfo;

//------------------- Skaitome Faila
procedure Skaitymas (var mmInfo : minfo; var Mokiniai : integer);
var
i : integer;
mFile : text;
Pest, Bokst, Zirg, Rik, Kar, Vald : integer;
begin
mmInfo.Pestininkai := 0;
mmInfo.Bokstai := 0;
mmInfo.Zirgai := 0;
mmInfo.Rikiai := 0;
mmInfo.Karaliai := 0;
mmInfo.Valdove := 0;

Assign (mFile, 'U1.txt');
reset(mFile);
ReadLn(mFile, Mokiniai);
    for i := 1 to Mokiniai do
        begin
        ReadLn(mFile, Pest, Bokst, Zirg, Rik, Kar, Vald);
        mmInfo.Pestininkai := Pest + mmInfo.Pestininkai;
        mmInfo.Bokstai := Bokst + mmInfo.Bokstai;
        mmInfo.Zirgai := Zirg + mmInfo.Zirgai;
        mmInfo.Rikiai := Rik + mmInfo.Rikiai;
        mmInfo.Karaliai := Kar + mmInfo.Karaliai;
        mmInfo.Valdove := Vald + mmInfo.Valdove;
        end;
close(mFile);
end;

//-------------------- Skaiciavimas
procedure Skaiciavimas (mmInfo : mInfo; Mokiniai : integer; var Rezultatas : integer);
var
i, Visi : integer;
begin
 for i := 0 to Mokiniai do
    begin
    Visi := 0;
    
     if mmInfo.Pestininkai >= 8 then
        begin
        mmInfo.Pestininkai := mmInfo.Pestininkai - 8;
        Visi := Visi + 1;
        end;

      if mmInfo.Bokstai >= 2 then
          begin
          mmInfo.Bokstai := mmInfo.Bokstai - 2;
          Visi := Visi + 1;
          end;

     if mmInfo.Zirgai >= 2 then
             begin
             mmInfo.Zirgai := mmInfo.Zirgai - 2;
             Visi := Visi + 1;
             end;
             
    if mmInfo.Rikiai >= 2 then
           begin
           mmInfo.Rikiai := mmInfo.Rikiai - 2;
           Visi := Visi + 1;
           end;
             
   if mmInfo.Karaliai >= 1 then
           begin
           mmInfo.Karaliai := mmInfo.Karaliai - 1;
           Visi := Visi + 1;
           end;


   if mmInfo.Valdove >= 1 then
           begin
           mmInfo.Valdove := mmInfo.Valdove - 1;
           Visi := Visi + 1;
           end;

   if Visi = 6 then Rezultatas := Rezultatas + 1
       else break;

    end;
end;

//-------------------- Failo irasymas
procedure Irasymas (Rezultatas : integer);
var
iFile : text;
begin
Assign(iFile, 'U1rez.txt');
ReWrite(iFile);
WriteLn(iFile, Rezultatas);
Close(iFile);
end;
 
//-------------------- Pagrindinis
var
mmInfo : mInfo;
Mokiniai, Rezultatas : integer;
begin
Rezultatas := 0;
  Skaitymas(mmInfo, Mokiniai);
  Skaiciavimas(mmInfo, Mokiniai, Rezultatas);
  Irasymas(Rezultatas);
end.