$\text{Bài 1:}$

a. $\text{Clrscr;}$ - Lệnh xóa màn hình;

b. $\text{Write('......');}$ - Lệnh in ra màn hình $\text{......}$;

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

d. $\text{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:

    $\text{x:=10; whilex=10 do x:=x+5;}$;

B. Lệnh gán sau $\text{do}$ thiếu dấu hai chấm;

C. Đúng. Nhưng nếu là câu lệnh tính $\text{s}$ thì phải có $\text{begin}$ sau $\text{do}$ và $\text{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> ;