Viết chương trình tính tích 30 số nguyên đầu tiên

Chào các bạn, mình có câu hỏi muốn hỏi như này, mình viết chương trình như sau, tính tích 30 số nguyên đầu tiên:
program haibabon;
uses crt;
var s,i,n: integer;
begin
clrscr;
s:=1;
i:=1;
while i<=30 do begin
s:=s+i;
i:=i+1;
end;
write (s);
readln;
end.
Mình không biết vì sao nó in ra bằng 0, mà mình nhập hai lần câu lệnh i:=i+1 thì lại cho ra kq đúng tức là:
begin
s:=s+i;
i:=i+1;
i:=i+1;
end;
thì lại cho ra kq đúng. à