Các câu in đậm là mình đã sửa lỗi rồi

a) While i = 1  do t:=10;

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

Điều kiện là i = 10 ko phải là gán giá trị 10 cho biến i

b) While a > b  do writeln('a lon hon b'); → Bỏ dấu' ;' sau điều kiện a>b

GT: While <điều kiện> do <câu lệnh>; →Sai cú pháp

c) While i = 10 do writeln('Toi lap trinh gioi '); → Đúng

d) i:=1; While i < 10 do begin writeln('0'); i:=i+1 end; 

GT: Do điều kiện là i < 10 /Nên là khi gán giá trị i = 1 thì 1 < 10 luôn đúng → lỗi lập vô hạn lần→ Ta phải thêm lệnh để biến đổi điều kiện từ đúng thành sai để dừng vòng lặp  

Ta có cú pháp câu 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. Sửa lại: While t<10 do t:=10;

Vì sau while là một điều kiện, mà "i:=1" là câu lệnh gán

b. Sửa lại: While a>b do writeln('a lon hon b');

Vì dư dấu ";" ở phía trước do

c. Đúng

d. Sửa lại: i:=1; while i<10 do

                         Begin

                         writeln('O');

                         i:=10;

                         End;

Vì mắc lỗi vô hạn lần lặp, phải thêm câu lệnh để thay đổi giá trị của i