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.

最后s＝252，但我就是做不出这个答案来，当然不是在电脑上运行做出答案而是笔试做出答案来，大家帮帮我吧，拜托了