Program tinh_chan_le;
Uses crt;
Var a,b:integer;
Begin
  Clrscr;
  Write('Nhap a= ');readln(a);
  Write('Nhap b= ');readln(b);
  If a mod 2=0 then write('a la so chan') else write('a la so le');
  readln
End.

Vì kiểm tra xem a là số chẵn hay số lẻ chứ ko kiểm tra b nên mk chỉ nhập b. Nếu kiểm tra b là chẵn hay lẻ thì thêm câu lệnh
If b mod 2=0 then write('b la so chan') else write('b la so le');