with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

procedure Solve is
   D : Integer;
begin
   Get (D);
   if D = 25 then
      Put_Line ("Christmas");
   end if;
   if D = 24 then
      Put_Line ("Christmas Eve");
   end if;
   if D = 23 then
      Put_Line ("Christmas Eve Eve");
   end if;
   if D = 22 then
      Put_Line ("Christmas Eve Eve Eve");
   end if;
end Solve;