character(6) :: w(3)
character(6) :: in
integer :: ans
w(1) = 'Sunny'
w(2) = 'Cloudy'
w(3) = 'Rainy'

read*,in
if( trim(in)==trim(w(1)) ) ans = 2
if( trim(in)==trim(w(2)) ) ans = 3
if( trim(in)==trim(w(3)) ) ans = 1

print'(a)',trim( w(ans) )
end