uses crt;

var a: integer;

begin

clrscr;

write ('nhap a: ');   readln (a);

if a<0 then writeln (a,' la so am');

if a>0 then writeln (a,' la so duong');

if a=0 then writeln (a,' khong phai la so duong cung khong phai la so am');

readln;

end.

2)

uses crt;

var a,b: integer;

begin

write ('nhap a: ');   readln (a);

write ('nhap b: '):   readln (b);

if ((a<0) and (b<0)) or ((a>=0) and (b>=0)) then

writeln (a,' va ',b,' cung dau')

else writeln (a,' va ',b,' khac dau');

readln;

end.

n = int(input('nhập số n :'))
if (n % 2 == 0) : 
     print(n,'là số chẵn')
else :
     print(n,'là số lẻ')