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.
