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.