program prob43
    implicit none
    character :: s
    read(*,*) s
    if(s == 'S') then
        write(*,*) 'Cloudy'
    else if (s == 'C') then
        write(*,*) "Rainy"  
    else
        write(*,*) "Sunny"
    end if

    stop
contains
end program prob43