var i,j,s:integer;
b:array[0..5] of integer;
begin
  s:=1;
  for i:=1 to 5 do b[i]:=i;
  j:=1;
  while j>0 do
    begin
     j:=5;
      while (j>0)and (b[j]:=10+j-5) do j:=j-1;
      if j>0  then
        begin
              s:=s+1;b[j]:=b[j]+1;
              for i:=j+1 to 5 do b[i]:=b[j]_i-j
             end;
         end;
writeln('s=',s);
end.
不要只告诉我答案，我想知道你们的想法和具体的做法，拜托了