var
  n, i, a, b, k: integer;
begin
  writeln('Ââåäèòå êîëè÷åñòâî ïàð:');
  readln(n);
  writeln('Ââåäèòå ', n ,' ïàð(û) ÷èñåë:');
  for i := 1 to n do
  begin
    read(a,b);
    if a + b = 46 then
      k := k + 1;
  end;
  writeln('Ñðåäè ââåäåííûõ ïàð ', k ,' äàþò â ñóììå 46');
end.