Bài 1:

Program BTT;
Uses crt;
Var a,b,s: qword;
Begin
        Clrscr;
        Write('Nhap so nguyen duong thu nhat: '); Readln(a);
        Write('Nhap so nguyen duong thu hai: '); Readln(b);
        s:=a*b;
        Write('Tich cua hai so do la: ',s);
        Readln
End.

Bài 2:

Program BTT;
Uses crt;
Var s,i: byte;
Begin
        Clrscr;
        s:=0;
        For i:=1 to 20 do
                If i mod 2 = 0 then s:=s+i;
        Write('Tong cac so chan cua 20 so tu nhien dau tien la: ',s);
        Readln
End.

Bài 3:

a) Thuật toán:

Bước 1: Nhập số thực a

Bước 2: Nếu a>0 thì xuất a là số dương và thực hiện bước 5

Bước 3: Nếu a<0 thì xuất a là số âm và thực hiện bước 5

Bước 4: Nếu a=0 thì xuất a không âm và không dương và thực hiện bước 5

Bước 5: Kết thúc chương trình

b) Chương trình:

Program BTT;
Uses crt;
Var a: real;
Begin
        Clrscr;
        Write('Nhap so thuc: '); Readln(a);
        If a > 0 then Write('So duong');
        If a < 0 then Write('So am');
        If a = 0 then Write('Khong phai so am, khong phai so duong');
        Readln
End.

Bài 4:

a) Xác định bài toán:

Input: Điểm 5 môn

Ouput: Xếp loại học lực

b) Thuật toán

Bước 1: Nhập điểm từng môn: toan, li, hoa, van, tin

Bước 2: s ← toan+li+hoa+van+tin

Bước 3: tbc ← s/5

Bước 4: Nếu tbc>=8 thì xuất học sinh giỏi

Ngược lại xuất học sinh khá

c) Chương trình:

Program BTT;
Uses crt;
Var toan,li,hoa,van,tin,s,tbc: real;
Begin
        Clrscr;
        Write('Nhap diem mon Toan: '); Readln(toan);
        Write('Nhap diem mon Li: '); Readln(li);
        Write('Nhap diem mon Hoa: '); Readln(hoa);
        Write('Nhap diem mon Van: '); Readln(van);
        Write('Nhap diem mon Tin: '); Readln(tin);
        s:=toan+li+hoa+van+tin;
        tbc:=s/5;
        If tbc>=8 then Write('Hoc sinh gioi')
        Else Write('Hoc sinh kha');
        Readln
End.