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;