with Ada.Text_IO;
with Ada.Integer_Text_IO;

procedure main is

   s : String (1 .. 3);

begin

   Ada.Text_IO.Get_Line(s, last);
   
   if(s = "ABC")then
     Ada.Text_IO.Put_Line("ARC");
   else
     Ada.Text_IO.Put_Line("ABC");
   end if;

end main;
