program weather_prediction
  implicit none
  character(1) :: s
  read(*,*) s
  select case (s)
  case ("S")
    write(*,'(a)') "Cloudy"
  case ("C")
    write(*,'(a)') "Rainy"
  case ("R")
    write(*,'(a)') "Sunny"
  end select
end program weather_prediction