program wordsa;
var
  n,i:integer;
  sj:array[1..5000]of integer;
  year1,year2:string;
begin
  assign(input,'wordsa.in');
  reset(input);
  assign(output,'wordsa.out');
  rewrite(output);
  readln(n);
  for i:=1 to n do
    readln(sj[i]);
  readln(year1);
  readln(year2);
  write(n);
  close(input);
  close(output);
end.