program aaa
implicit none

integer :: d

read*, d

if(d==25) then
write(*,*) 'Christmas'
else if (d==24) then
write(*,*) 'Christmas Eve'
else if (d==23) then
write(*,*) 'Christmas Eve Eve'
else if (d==22) then
write(*,*) 'Christmas Eve Eve Eve'
end if

end program