Uses crt;

Var

 s: ansistring;

 d, i, j: longint;

 kt: boolean;

Begin

Clrscr;

Writeln('Nhap xau');

Readln(s);

If length(s) < 100000 then 

 Begin

  For i:= 1 to length(s) do 

   Begin

    d:= 0;

    For j:= 1 to length(s) do

    If s[i] = s[j] then 

     d:= d + 1;

    If d >= (length(s) + 1) div 2 then 

     Begin

      Writeln('False');

       kt:= false;

       Break;

     End     

   else 

      kt:= true;

    End;

 If kt = true then 

 Writeln('True');

 End;

Readln;

End.

#AduAngQuang