program proba
	implicit none
    character(len=1) :: s
    if(s == 'S') then
    	write(*,'(a)') 'Cloudy'
    else if(s == 'C')
    	write(*,'(a)') 'Rainy'
    else
        write(*,'(a)') 'Sunny'
    end if
    
    stop
end program proba