var
x, y:real;
begin
readln(x,y);
if ((y <= abs(x)) and (x >= -1.5) and (y >= 0)) then
write('принадлежит');
else write('не принадлежит');
end.    

var
                   a,b:array [92..98] of integer;                {массивы кол-ва и мин. цены каждого типа бензина}
                   i,N,k,p:integer; c:char;                          {Служебные переменные}
Begin
a[92]:=0; a[95]:=0; a[98]:=0;                    {Вначале всех заправок по нулям}
readln(N);                    {Считываем кол-во записей}
for i:=1 to N do begin;                    {Считываем построчно}
                  while c<>' ' do read(c);                      {Избавляемся от названия из строки ввода}
                  c:='g';
                  while c<>' ' do read(c);                       {Избавляемся от города из строки ввода}
                  c:='g';
                  read(k);                    {Считываем тип бензина}
                  read(p);                    {Считываем его стоимость}
                  if (a[k]=0) or (p<b[k]) then begin;         {Если таких типов бензина еще не было или его цена оказалась меньше предыдущей минимальной,...}
                    a[k]:=1;                    {...то сбрасываем счетчик заправок до единицы}
                    b[k]:=p;                     {и задаем новую минимальною стоимость}
                  end Else if (p=b[k]) then a[k]:=a[k]+1;  {Иначе, если цена равна минимальной, то пополняем счетчик}
                             {Если цена оказалась выше минимальной, не делаем ничего}
end;
Writeln(a[92],' ',a[95],' ',a[98]);                   {Выводим}
end.