var i,n:longint;
begin
 readln(n);
if (n = 8) then
               begin
                 writeln('Chu nhat');
                 readln;
                 exit;
               end
else if (n >= 2) and (n < 8) then
     begin
      for i := 2 to 8 do
       if i = n then
         begin
          writeln('Thu ',i);
          break;
         end;
      end;
readln
end.

uses crt;
var n:byte;
begin
    clrscr;
    readln(n);
    if n = 2 then writeln('Thu hai') else
    if n = 3 then writeln('Thu ba')  else
    if n = 4 then writeln('Thu tu')  else
    if n = 5 then writeln('Thu nam') else
    if n = 6 then writeln('Thu sau') else
    if n = 7 then writeln('Thu bay') else
    if n = 8 then writeln('Chu nhat');
readln;
end.