program amduong;
uses crt;
var n: integer;
begin
clrscr;
write('Nhap so nguyen :'); readln(n);
if n>0 then writeln('n la so nguyen duong');
if n<0 then writeln('n la so nguyen am');
if n=0 then writeln('n khong phai la so nguyen duong hay nguyen am');
readln
end.