program kadai
implicit none
character(len=6)  ::  S

read(*,*) S

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

stop
contains

end program kadai