đây nhé bạn

Program BTT;
Uses crt;
Var a,c: longint;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);

        //Cho biet a chan hay le

        If a mod 2 = 0 then Write(a,' la so chan');
        If a mod 2 = 1 then Write(a,' la so le');
        Writeln;

        Write('Nhap c: '); Readln(c);

        //Cho biet c am hay duong

        If c=0 then Write(c,' khong phai so am cung khong phai so duong');
        If c>0 then Write(c,' la so duong');
        If c<0 then Write(c,' la so am');
        Writeln;

        Write('Nhap a: '); Readln(a);

        //Cho biet a co chia het cho 2 va 9 khong

        If (a mod 2=0) and (a mod 9=0) then Write(a,' chia het cho 2 va 9');
        If (a mod 2<>0) or (a mod 9<>0) then Write(a,' khong chia het cho 2 va 9');
        Readln
End.