S:=0; `->` khởi tạo s ban đầu bằng 0;

For i:=1 to 9 do S:=S+i;   `->` i chạy từ 1 đến 9 lần lượt cộng vào s

`->` số lần lặp 9-1+1=9 lần lặp (từ 1 đến 9)

`->` s=1+2+3+4+5+6+7+8+9=45

Vậy s=45

Viết chương trình bằng while..do:

uses crt;

var i,s: byte;

begin

clrscr;

s:=0;

i:=1;

while i<=9 do

begin

s:=s+i;

i:=i+1;

end;

writeln (s);

readln;

end.

Với biến i tăng từ 1-> 9

Và cứ mỗi vòng lặp thì lại thực hiện S:=S+i;

=> S=0+1+2+3+4+5+6+7+8+9=45

Chương trình:

uses crt;

var i,S: integer;

begin

clrscr;

S:=0;

i:=1;

while i<=9 do

begin

S:=S+i;

i:=i+1;

end;

writeln(S);

readln;

end.