VOSH_20

gistfile1.txt

var
  i, n, Place, lth, maxLth :longint;
  room : array[1..9] of boolean;
begin
  for i:=1 to 9 do
    room[i]:=true;
  readln (n);
  for i:=1 to n do
    begin
      read (Place);
      if Place<=36 then
        room[(Place-1) div 4 + 1]:=false
      else
        room[(54-Place) div 2 + 1]:=false;
    end;
    
  lth:=0;
  maxLth:=0;
  for i:=1 to 9 do
    if room[i] then
      Lth+=1
    else
      begin
        if Lth<Lth then
          maxLth:=Lth;
        lth:=0;
      end;
  writeln (maxLth);
end.

//5 6 3 4 8 7 51 9 10 54 49 52