uses crt;
var n:integer;
begin
clrscr;
readln(n);
if n>0 then writeln(n,' la so duong')
else writeln('ko la so duong');
if (n mod 2=1) and (n mod 3=0) then writeln('n la so le chia het cho 3')
else writeln('n ko la so le chia het cho 3');
readln;
end.