viết chương trình tính tổng của 1 dãy gồm n số nguyên được nhập từ bàn phím bằng cách dùng với lệnh lắp while-do

uses crt;

Var i, n: integer;

      S: longint;

begin

 clrscr;

 write(‘Nhap so n= ‘);readln (n);

 S:=0;

 i:=0;

While i<=n do begin S:=S+i;

                                   i:=i+1 end;

Writeln (‘ Tong cua ‘,n’, so tu nhien dau tien la’,S);

Readln

End.