Câu 1:
var a: longint;
begin
write('Nhap so can kiem tra: ');
readln(a);
if (a mod 2 = 0) then write(a,' la so chan.') else write(a,' la so le.');
readln;
end.
Câu 2:
var a: longint;
{Xây dựng hàm}
function KT(a: longint):boolean;
begin
if (a>0) then exit(true) else exit(false);
end;
{Test}
begin
write('Nhap so can kiem tra: ');
readln(a);
if (a<>0) then
if KT(a) then write(a,' la so duong.') else write(a,' la so am.')
else
writeln('a la so 0. Khong phai so am va so duong');
readln;
end.