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.
