a)

program chan_le;

uses crt;

var n:integer;

function ktcl(k:integer):boolean;

begin

       if k mod 2=0 then ktcl:=true else ktcl:=false;

end;

begin

       clrscr;

       write('Nhap so can kiem tra: ');  readln(n);

       if ktcl(n)=true then write('Chan') else write('Le');

       readln;

end.

a)

program am_duong;

uses crt;

var n:integer;

fucntion ktad(k:integer):boolean;

begin

       if k>0 then ktad:=true

              else ktad:=false;

end;

begin

       clrscr;

       write('Nhap so can kiem tra: ');  readln(n);

       if n=0 then write('Khong am khong duong')

       else if ktad(n)=true then write('Duong')

              else write('Am');

      readln;

end.

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.