Vct xuất ra các số chẵn lên đầu hàng

Program bai1;

uses

crt;

var a : integer;

begin

clrscr;

write(‘nhap a =’); readln(a);

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

writeln(‘la so le ‘);

readln;

end.