Chương trình sau có ý nghĩa gì

Chương trình sau có ý nghĩa gì
Program Tinh_tong;
var N, i; Integer;
       S: Longint
Begin
Writeln('Nhap so N = ');
readln(N);
S:=0
For i:=1 to N do S:=S+i;
Writeln('Tong cua ',N,' so tu nhien  dau tien S = ',S);
End.
2, Viết Chương Trình Tính Tổng 100 STN Đầu Tiên
<3