камень*ножницы*бумага

uses crt;
var                                 a,b,c: integer;
    FirstPlayer, SecondPlayer,ThirdPlayer: integer;
                                        f: text;
                                      i,n: integer;
function Winar(x,y:byte): boolean;  {Если x побеждает y - возвращается истина, иначе - ложь}
begin
 If (x = 1) and (y = 2) then winar := true        {Камень - Ножницы}
else
 If (x = 2) and (y = 4) then winar := true        {Ножницы - Бумага}
else
 If (x = 4) and (y = 1) then winar := true        {Бумага - Камень}
else
 winar := false;
end;
 
procedure valid(a,b,c:byte);
begin
If (a = b) and (b = c) then      {Если равны - ничего}
else
If (a = b) or (b = c) or (b = a) then   {Если любые из чисел попарно равны проверяем, победитель ли оставшийся третий игрок, или проигравший}
  begin
   If (a = b) then  If winar (c,a) then ThirdPlayer:=ThirdPlayer + 2
     else
       begin
        FirstPlayer:=FirstPlayer + 1;
        SecondPlayer:=SecondPlayer + 1;
       end;
   If (b = c) then  If winar (a,b) then FirstPlayer:=FirstPlayer + 2
     else
       begin
       SecondPlayer:=SecondPlayer + 1;
       ThirdPlayer:=ThirdPlayer + 1;
       end;
   If (c = a) then  If winar (b,a) then SecondPlayer:=SecondPlayer + 2
     else
       begin
        ThirdPlayer:=ThirdPlayer + 1;
        FirstPlayer:=FirstPlayer + 1;
       end;
  end
else
If (a <> b) and (b <> c) and (c <> a) then   {Если не равны - ничего}
end;
 
begin
Assign(f,'input.txt');
Reset (f);
Read (f,n);
For i:=1 to n do
begin
  Readln (f,a,b,c);
  valid(a,b,c);
end;
Close (f);
Assign(f,'output.txt');
Rewrite(f);
Writeln (f, FirstPlayer,' ',SecondPlayer,' ',ThirdPlayer);
close (f);
end.