4 câu đầu:

Program TTT;
Uses crt;
Var a,b,c: longint;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        If a>=0 then Write(a,' la so duong')
        Else Write(a,' la so am');

        Writeln;

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

        Writeln;

        If (a mod 3=0) and (a mod 7=0) then Write(a,' chia het cho 3 va 7')
        Else Write(a,' khong chia het cho 3 va 7');

        Writeln;

        Write('Nhap b: '); Readln(b);
        c:=a;
        a:=b;
        b:=c;

        Write(a,'   ',b);
        Readln
End.

Câu cuối:

Uses crt;
Var a,b,c: longint;
Begin
        Clrscr;
        Write('Nhap a, b va c: '); Readln(a,b,c);
        If (a>b) and (a>c) then Write(a,' lon nhat');
        If (b>a) and (b>c) then Write(b,' lon nhat');
        If (c>a) and (c>b) then Write(c,' lon nhat');
        Readln
End.

Nhập a, cho biết a là số âm hay số dương?

Nhập a, cho biết a là số chẵn hay lẽ?

Nhập a, cho biết a là số có chia hết cho 3 và 7 không?

Nhập a,b đổi vị trí hai số này?

a=int(input("nhập a: "))
b=int(input("nhập b: "))
if a>0 :
    print(a," là số âm")
else :
    print(a," là số dương")
if a%2==0 :
    print(a," là số chẵn")
else :
    print(a," là số lẻ ")
if (a%3==0) and (a%7==0):
    print(a," chia hết cho 3 và 7")
else :
    print(a," không chia hết cho 3 và 7")
d=1
d=a
a=b
b=d
print(" sau khi hoán đổi ",a,"  ",b)

Nhập a, b, c tìm số lớn nhất?

a=int(input("nhập a: "))
b=int(input("nhập b: "))
c=int(input("nhập c: "))
max=a
if max<b :
    max=b
if max<c :
    max=c 
print("giá trị lớn nhất: ",max)

Tất cả đều dùng hàm if `=>` câu lệnh If