program sad;

var
  a,b:array [1..999999] of integer;
  c,d,e,f,g:integer;
  r:array[1..99999] of string;
  r1:string;
begin
 g:=0;
 
 
 writeln('Введите количество собак');
 readln(c);
 for d:=1 to c do
 begin
 writeln('Введите породу собаки');
 readln(r1);
 r[d]:=r1;
 writeln('Введите возраст собаки №',d);
 readln(e);
 a[d]:=e;
 writeln('Введите высоту собаки №',d);
 readln(f);
 b[d]:=f;
 if ((a[d]=2) or (a[d]=3)) and (b[d]>55) and (r[d]='боксёр') then g:=g+1 
 end;
 writeln('Боксеров - ',g);
end.