Cho n , vẽ sơ đồ khối đưa ra tổng các số từ 1 đến n

Program TinhTong;

Uses crt;

Var S,i,n:Integer

BEGIN

Write( ‘ Nhap so n:’ );

 Readln( n );

 S: = 0;

S For i:=1 to n do

S:=S + i;

Writeln( ‘Tong = ’, S);

Readln;

END.