Bài 1:
Program Tenchuongtrinh;
Uses crt;
Var n:longint;
Begin
         Clrscr;
         Write('Nhap so nguyen n= '); readln(n);  {Nhập số nguyên n bất kì từ bàn phím}
         if (n>0) or (n=0) or (n<0) then writeln(n,' la so nguyen.'); {Kiểm tra n có phải là số nguyên không}
         if (n mod 2=0) then writeln(n,' la so chan.')
           else writeln(n,' la so le.'); {Kiểm tra tính chẵn lẻ của n}
         if (n>0) and (n mod 2=0) then writeln(n,' la so chan duong.')          {Kiểm tra n có phải là số chẵn dương không}
           else writeln(n,' la so le am);
         {Bạn thông cảm, câu 6 và 7 tớ không biết làm}
Bài 2:
Program Tenchuongtrinh;
Uses crt;
Var a,b,c:integer;
Begin
         Clrscr;
         a:=3; b:=5; c:=2;
         if (a>b) and (a>c) then writeln(a,' la so lon nhat')
           else
             if (b>a) and (b>c) then writeln(b,' la so lon nhat')
               else
                 if (c>a) and (c>b) then writeln(c,' la so lon nhat');
          if (a<b) and (a<c) then writeln(a,' la so be nhat')
           else
             if (b<a) and (b<c) then writeln(b,' la so be nhat')
               else
                 if (c<a) and (c<b) then writeln(c,' la so be nhat');
           Readln;
End.