Chương trình 13

PROGRAM Tinh_tong;
VAR N, i: INTEGER;
S: LONGINT;
BEGIN
write('Nhap so N='); readln(N);
S:=0;
FOR i:=1 TO N DO S:= S + i;
writeln('Tong cua ',N,' so tu nhien dau tien S = ',S);
Readln
END.

Download: http://www.mediafire.com/?13y1f9gn7cp9ft7