Cho N và dãy a1,a2,a3...an .Hãy tính tổng các số hạng trong dãy

program kaito;
uses crt;
var n, i, s: integer;
      a: array[1..10000] of integer;
begin
    clrscr;                  
    write('Nhap n: '); readln(n);
    for i:=1 to n do 
    begin
        write('Nhap so hang thu ',i,': '); readln(a[i]);
        s:=s+a[i];
    end;
    writeln('Tong cac so hang la: ',s);
   readln
end.

* Thuật toán 1 :

- Bước 1 ; nhập n và dãy a1, a2, .. , an

- Bước 2 : i ← 1; s ← 0

- Bước 3 : nếu i > n thì đưa ra giá trị s rồi kết thúc

- Bước 4 :  s ← s + a[i] 

- Bước 5 : i ← i + 1, quay lại bước 3