uses crt;
var n: integer;
begin
clrscr;
write ('nhap vao so n: ');
readln (n);
if n<=0 then writeln ('n chinh la so am');
if n>0 then writeln ('n chinh la so duong');
if n mod 2=0 then writeln ('n chinh la so chan');
if n mod 2<>0 then writeln ('n chinh la so le ');
readln;
end.