Viết chương trình nhập số nguyên a, cho biết a có là số dương và là số chẵn hay không?

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.

uses crt;

var a:integer;

begin

clrscr;

write('nhap a');

readln(a);

if (a>0) and (a mod 2=0) then write(a,' là số dương và là số chẵn') else write('khong'); { chỗ else bạn muốn viết hay k cx đc,nó k quan trọng nhé}

readln;

end.