a) sai(sai cú pháp) sửa: while i=1 do t:=10;(thêm dấu ";" ở cuối)

b)sai(sai cú pháp) sửa: while a<=b do writeln('a khong nho hon b');(bỏ dấu ";" ở giữa b và do)

c) đúng

d) xét về cú pháp thì đúng nhưng trong trường hợp này thì sai (sai vì lỗi vòng lặp vô hạn) 

sửa: i:=1; while <10 do begin sum:=sum+i; i:=i+2;end; (thêm begin và end)

e) đúng

f) sai(sai cú pháp) sửa: var X:array[5..10] of real; (bỏ 1 dấu chấm [ 5..10] từ bấ dấu chấm thành 2 dấu chấm)

_________________________

-cú pháp của các câu lệnh và khai báo biến có trong vài bạn có thể tham khảo, đối chiếu: 

cú pháp câu lệnh while..do

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

cú pháp câu lệnh for..do

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

cú pháp khai báo biến mảng:

var <tên biến>:array[<giá trị đầu>..<giá trị cuối>] of <kiểu dữ liệu>; (chú ý giẵ giá trị đầu và cuối chỉ có 2 dấu chấm ko dc thêm hoặc bớt dù chỉ 1 )

(mong dc 5*+hay nhất)

A. Câu lệnh sai

- Thiếu dấu chấm phẩy cuối lệnh

- Nếu điều kiện i = 1 đúng, chương trình sẽ lặp vô hạn

- While i = 1 do begin t := 10; i := i + 1; end;

B. Câu lệnh sai

- Sai cú pháp

- Nếu điều kiện a <= b đúng, chương trình sẽ lặp vô hạn

- While a <= b do begin writeln('b khong nho hon a'); a := a + 1; end;

C. Câu lệnh sai

- Nếu i = 1 đúng, chương trình lặp vô hạn

- Nếu i = 1 sai, bỏ qua câu lệnh

- While i = 1 do begin write('Toi lap trinh gioi'); i := i + 1; end;

D. Câu lệnh sai

- Điều kiện luôn đúng, giá trị không đổi, chương trình lặp vô hạn

- i := 1; while i <= 10 do begin sum := sum + i; i := i + 1; end;

E. Câu lệnh sai

- Sai cấu lệnh gán x ;= x + 2

- for i := 1 to 10 do x := x + 2;

F. Câu lệnh sai

- Var X : array [5 .. 10] of real;