$\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> ;
