$\text{Bài 1:}$

a. Clrscr; - Lệnh xóa màn hình;

b. Write('......'); - Lệnh in ra màn hình ......;

c. Readln; - Lệnh chờ màn hình cho đến khi người dùng nhấp phím Enter;

d. Uses crt; - Lệnh khai báo thư viện;

$\text{Bài 2:}$

A. Câu lệnh điều kiện khi so sánh không được có dấu hai chấm, sửa lại:

    x:=10; while x=10 do x:=x+5; ;

B. Lệnh gán sau do thiếu dấu hai chấm;

C. Đúng. Nhưng nếu là câu lệnh tính s thì phải có begin sau do và end; cuối cùng;

$\text{Bài 3:}$

program tong;

uses crt;

var i,S: byte;

Begin

         clrscr;

         for i:=1 to 5 do S:=S+i;

         write('S = ',S);

         readln

End.

$\text{Bài 4:}$

*Cấu trúc lệnh lặp với số lần biết trước:

For <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh> ;

*Cấu trúc lệnh lặp với số lần chưa biết trước:

While <điều kiện> do <câu lệnh> ;

A. 

- Sai điều kiện x := 10

- x := 10 không trả về giá trị đúng hay sai

B. 

- Sai câu lệnh x = x + 5

- Sai dấu gán

C. 

- Lỗi vòng lặp vô hạn

- Chưa đưa 2 câu lệnh sau do vào begin ... end;

D. 

- Lỗi chính tả 

- Viết từ khoá do liền với biến i