Bài 3:

a) For i:=100 to 1 do write('B');

Không hợp lệ, không thể dùng for..to... để đi đếm ngược.

Sửa: For i:=100 to 1 do write('B');

b) For i:=1.5 to 10.5 do write('B');

Không hợp lệ, không thể dùng for..to... để đi đếm từ các số thập phân.

Sửa: For i:=1 to 10 do write('B'); hoặc For i:=2 to 11 do write('B');

c) x:=10; while x:=10 do x:=x+5;

Không hợp lệ, Trong phần điều kiện khổng thể dùng dấu ':'.

Sửa: x:=10; while x=10 do x:=x+5;

d) x:=10; while x:=10 do x=x+5;

Không hợp lệ, Khi gán x băng 1 giá trị nào đó thì phải có dấu ':'.

Sửa: x:=10; while x=10 do x:=x+5;

Bài 4:

uses crt;
var s,i,n:longint;
begin
clrscr;
   write('Nhap n: ');readln(n);
   s:=0;
   for i:=1 to n do
      s:=s+i;
   writeln('s=',s);
readln;
end.

3.

a) chỉ số đầu phải bé hơn chỉ số cuối

b) chỉ số đầu và chỉ số cuối phải là số nguyên

c) x:=10;

 while x=10 chứ không phải while x:=10

d) x:=10;

4.

var n, i: word;

      S: longword;

Begin

   Write('n = '); readln(n); s:=0;

   For i:=1 to n do s:=s+i;

   Write('s = ', S);

   Readln

End.