program main implicit none character*4::S(3) read *,S if(SUM(LEN_TRIM(S)).gt.10) then print '(a)', "BLUE" else print '(a)', "RED" end if end program main