program red_or_not
    implicit none
    integer(4):: a
    character(10):: s
    read*, a
    read*, s
    if (a >= 3200) then
        print*, s
    else
        print*, 'red'
    end if
end program red_or_not