program ct;
uses crt;
var n:integer;
begin clrscr;
write('Nhap so n: '); readln(n);
if n>0 then writeln(n,' la so duong') else writeln(n,' la so am');
if n mod 2=0 then writeln(n,' la so chan') else writeln(n,' la so le');
if (n mod 2=0) and (n mod 5=0) then writeln(n,' chia het cho 2 va 5')
else writeln(n,' khong chia het cho 2 va 5');
readln;
end.
Học tốt!