uses crt;
var n,i,s:longint;
begin
readln(n);
if n mod 2 =0 then writeln(n,' la so chan') else writeln(n,' la so le');
begin
for i:= 1 to trunc(sqrt(n)) do
if n mod i=0 then
writeln(n,' la hop so')
else
writeln(n,' la so nguyen to');
begin
s:=0;
for i:=1 to n div 2 do
if n mod i=0 then
s:=s+i;
if s=n then
writeln(n,' la so hoan hao') else writeln(n,' ko la so hoan hao');
end;
end;
readln;
end.