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

    read*, s
    if (s == 'ABC') then
        print'(a)', 'ARC'
    else
        print'(a)', 'ABC'
    end if
end program name