Bài 1:
Program Kiem_tra_chan_le;
Uses Crt;
begin
clrscr;
real(a);
If a mod 2 = 0 then write ('Do la so chan');
If a mod 2 = 1 then write ('Do la so le');
readln
end.
Bài 2:
Program Kiem_tra_am_duong;
Uses Crt;
begin
clrscr;
real(b);
If a > 0 then write ('Do la so duong');
If a < 0 then write ('Do la so am');
readln
end.