Viết chương trình tính tổng các số tự nhiên từ 1 đến n bằng vòng lặp for do và while do

*for do

program tinhtong;

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do

   s:=s+i;

readln(‘Tong la: ‘,s);

readln

end.

*while do

program tinhtong;

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;  i:=1;

while i<=n do

  begin

    s:=s+i;

    i:=i+1;

  end;

readln(‘Tong la: ‘,s);

readln

end.