Bài 1:

---

Program BTT;
Uses crt;
Var a,b: longint;
Begin
        Clrscr;
        Write('Nhap a, b:' ); Readln(a,b);
        If a>b then Write(a,' lon hon ',b)
        Else If a<b then Write(b,' lon hon ',a)
        Else Write('Bang nhau');
        Readln
End.

---

Bài 2:

---

Program BTT;
Uses crt;
Var a,b,c: longint;
Begin
        Clrscr;
        Write('Nhap do dai 3 canh: ' ); Readln(a,b,c);
        If (a+b>c) and (b+c>a) and (a+c>b) then Write('Do la do dai 3 canh cua tam giac')
        Else Write('Do khong phai do dai 3 canh cua tam giac');
        Readln
End.

---

Bài 3:

---

Program BTT;
Uses crt;
Var a,b: longint;
Begin
        Clrscr;
        Write('Nhap a, b: '); Readln(a,b);
        If (a mod 2 = 1) and (b mod 2 = 1) then Write('Tong la: ',a+b)
        Else If (a mod 2 = 0) and (b mod 2 = 0) then Write('Tich la: ',a*b)
        Else Write('Khong dung yeu cau de');
        Readln
End.

---

Bài 4:

---

Program BTT;
Uses crt;
Var a: longint;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        If (a mod 2 = 0) and (a mod 5 = 0) then Write(a,' chia het cho 2 va 5')
        Else Write(a,' khong chia het cho 2 va 5');
        Readln
End.

---

Bài 5:

---

Program BTT;
Uses crt;
Var a,s: byte;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        s:=a mod 10 + a div 10;
        Write('Tong la: ',s);
        Readln
End.

---