with Ada.Text_IO, Ada.Integer_Text_IO, Ada.Float_Text_IO;
 use Ada.Text_IO, Ada.Integer_Text_IO, Ada.Float_Text_IO;

procedure main is
   S: String(1..3);
begin
   S := get_line;
   if S(1) = S(2) and then S(2) = S(3) then put_line("No");
   else put_line("Yes");
   end if;
end main;