program kiemtra;
var
n: integer;
begin
writeln('Nhap vao mot so nguyen n khac 0: ');
readln(n);
if n > 0 then
writeln(n, ' la so nguyen duong')
else if n < 0 then
writeln(n, ' la so nguyen am')
else
writeln('n khong la so nguyen duong cung khong la so nguyen am');
end.