B:PHÂN TỰ LUẬN
C1:
a) Đoạn CT trên thực hiện 5 vòng lặp do "(i<6)"
b) Gtri của i=7, s=105
C2:
a) Câu lệnh đúng (đề bài sai)
b) "While i<=15" (do while dùng so sánh rồi mới đến gán) chứ không phải là "while i:=15"
c) Thừa một dấu " . " trong ngoặc vuông.
d) Trong "Writeln('a)" thừa một dấu nháy trong ngoặc
C3:
Uses Crt;
Var i,S:longint;
Begin
Clrscr;
S:=0;
For i:= 2000 to 2021 do S:=S+i;
Write('Vay tong S= ',S);
Readln
End.
C4: 
CT 1:
Uses Crt;
Var S,x:real;
Begin
S:=10; x:=0.5;
While S<=5.2 do
Begin
S:=S-x;
End;
Write('Vay S = ',S);
Readln
End.
CT 2:
Var s,n:integer;
Begin
S:=10; n:=0
While s>=10 do...
*Mình ko chắc có đúng 2 CT trên ko nữa! Nhưng mình đã viết theo đề rồi!
*Nhớ tick và chọn làm ctrl hay nhất  giúp mình với nhé!Đa tạ!