viết chương trình nhập 2 số nguyên a b kiểm tra a b là số chẵn hay lẻ

uses crt;

var a,b: integer;

begin

clrscr;

write (‘nhap a: ‘);  readln (a);

write (‘nhap b: ‘);  readln (b);

if a mod 2=0 then writeln (‘a la so chan’)

else writeln (‘a la so le’);

if b mod 2=0 then writeln (‘b la so chan’)

else writeln (‘b la so le’);

readln;

end.