program name
    use,intrinsic :: iso_fortran_env
    implicit none
    character(3):: a

    read*, a

    if (a=='ABC')then
        print'(a)', "ARC"
    else
        print'(a)', "ABC"
    end if
end program name