a)

i:=0; s:=1; `->` i=0; s=1;

while S < 10 do S:=S+i; `->` khi nào s bé hơn 10 thì cộng i vào s

i= i+1; `->` sai vì thiếu dấu " : " `->` sửa lại: i:=i+1;

`->` Đây là vòng lặp vô hạn vì câu lệnh thay đổi giá trị của i nằm ngoài vòng lặp nên i vẫn luôn = 0 và giá trị s luôn bằng 1(không thay đổi) nên s<10 luôn thỏa mãn dẫn đến vô hạn `->` thêm begin..end; để tránh vô hạn

----------

sửa lại

i:=0; S:=1; while S < 10 do begin S:=S+i; i:= i+1; end;

b)

n:=2; while n<5 do write ('A')

`->` thiếu ";" sau câu lệnh

`->` n=2; `->` luôn thỏa mãn n<5 `->` vô hạn

Sửa:

n:=2; while n<5 do begin n:=n+1; write ('A'); end;

a) i:=0; S:=1; while S < 10 do S:=S+i; i= i+1;

                                                            ^

`->` thiếu dấu ":" sau i và trước dấu =

`=>` Sửa: i:=0; S:=1; while S < 10 do S:=S+i; i:= i+1;

b) n:=2; while n<5 do write ('A')

                                                   ^

`->` thiếu dấu ";" ở cuối

`->` lỗi lặp vô hạn lần

`=>` Sửa: n:=2; while n<5 do begin n:=n+1; write ('A'); end;