program test_0902;
var
s,i,j:integer;
a:array[1..10] of integer;
begin
s:=0;
i:=0;
for j:=1 to 10 do a[j]:=1;
while i<10 do
begin
i:=i+1;
s:=s+a[i];
for j:=i+1 to 10 do a[j]:=a[j]+1
end;
writeln('s=',s);
end.
输出：s=55