program a
implicit none
character(10) :: S

read(*,*) S
S = trim(S)

if (S=="Sunny") then
write(*,'(a6)') "Cloudy"
else if (S=="Cloudy") then
write(*,'(a5)') "Rainy"
else if (S=="Rainy") then
write(*,'(a5)') "Sunny"
end if

end program