uses crt; var n:longint; begin clrscr; write('N=');readln(n); if n>0 then writeln(n,' la so duong') else if n>0 then writeln(n,' la so am') else if n=0 then writeln(n,' la so 0'); if n mod 2=0 then writeln(n,' la so chan') else writeln(n,' la so le'); readln end.
