a:
Input: Dãy từ 1 tới n
Output: Tổng của dãy
b: Ý tưởng: Cộng dồn các số từ 1 đến n
d: Thuật toán
Bước 1: Nhập n
Bước 2: s←0; i←1;
Bước 3: s←s+i; i←i+1;
Bước 4: Nếu i<=n thì quay lại bước 3
Bước 5: xuất s
Bước 6: Kết thúc
e:
uses crt;
var n,i,s:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln(s);
readln;
end.