Câu 1:

Sửa lại:

var so,i: integer;

.......

edn -> end.

Câu 2:

program tinhtong;

uses crt;

var i,n: integer;

      s: longint;

begin clrscr;

write('nhap n'); readln(n);

s:=0;

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

write('tong la: ', s);

readln

end.

Câu 21 :

- Dòng 2 : Sai kiểu dữ liệu biến so và i

⇒ Var so, i : integer;

- Dòng 6 : Sai dấu x

⇒ For i := 1 to 10 Do Writeln(so ,' x ', i ,' = ', so * i);

- Dòng 8 : Sai từ khoá Edn

⇒ End.

Câu 22 :

uses crt;

var i, n, S : integer;

begin 

clrscr;

write('Nhap n = '); readln(n);

S := 0;

for i := 1 to n do S := S + i;

write('Tong S = ', S);

readln;

end.