Viết chương trình pascal tính tổng S=1+ 2+ 3 +… +n? a,Bằng lệnh for…do b,Bằng lệnh while…do

a) 

var i,n,s:longint;

begin

for i:=1 to n do

 s:=s+i;

write(s);

end.

b) 

var i,n,s:longint;

begin

 while i<>n do

  i:=i+1;

  s:=s+i;

 end;

write(s);

end.