Em hãy sắp xếp chương trình tính tổng N số tự nhiên sau cho phù hợp

E hãy sắp xếp chương trình tính tổng N số tự nhiên sau cho phù hợp
Vả N,i :integer
Write ('nhap so N =');s:=0;
S:Longint ; readln(n)
For i;=1 to n đó
Begin
Program tinh_tong ;
S:=S+1;
Wretln ('Tong cua ',N,' so tu nhien dau tien S=',S);
End
Readln