1.
uses crt;
var n:byte;
begin
write('nhap n: ');readln(n);
if n>0 then write('n la so duong')
else if n<0 then write('n la so am')
else write('n bang 0');
readln
end.
2.
uses crt;
var n:byte;
begin
write('nhap n: ');readln(n);
if n mod 2=0 then write('n la so chan')
else write('n la so le');
readln
end.