Bài 1:
Program bai1;
uses crt;
var a:integer;
begin
clrscr;
write('nhap so a =');
readln(a);
if a> 0 then writeln('a la so duong ') else
writeln('a la so am ');
readln;
end.
Bài 2:
program chanle;
uses crt;
var n;
begin
clrscr;
write('Nhap n: ');
readln(n);
if n mod 2 = 0 then write('n la so chan')
else ('n la so le');
readln;
end.
Bài 3:
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.