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$ kiem_tra_so;

$uses$

$crt;$

var a,k : integer;

begin clrscr;

write(' Nhap so a = ');

$readln(a);$

write(' Nhap so k = ');

readln(k); If a = 2 * k then writeln(' a la so chan') else writeln(' a la so le ');

$readln;$

$end.$

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.