Program BTH;
uses Crt;
var a:longint;
begin
clrscr;
Write('Nhap so nguyen a: ');readln(a);
If a>=0 then writeln(a,' la so nguyen duong.') else writeln(a,' khong phai la so nguyen duong.');
If a mod 2=0 then writeln(a,' chia het cho 2.') else writeln(a,' khong chia het cho 2.');
readln;
end.