các bạn giúp mình với viết chương trình tính tổng của n số tự nhiên đầu tiên (sử dụng vòng lặp for)

2 câu trả lời

var n,i,s:longint;

begin

write('Nhap n: '); readln(n);

for i:=1 to n do

s:=s+i;

write('S = ',s);

readln

end.

Program BTH;
Uses Crt;
var a,b,c:longint;
Begin
clrscr;
write('Nhap so n: ');readln(a);
For b:=1 to a do
c:=c+b;
write('Tong day so tren la: ',c);
readln;
End.