每个砝码3种情况（左、右、不放）穷举，然后统计即可。

program ex;
var i,j,s1,s2,s:longint;
    a,b:array[0..100] of longint;
begin
  for i:=0 to 5 do b[i]:=0;
  for i:=0 to 15 do a[i]:=0;
  while b[0]=0 do
    begin
      b[5]:=b[5]+1;
      j:=5;
      while b[j]=3 do
        begin
          b[j]:=0;
          j:=j-1;
          b[j]:=b[j]+1;
        end;
      s1:=0;s2:=0;
      for i:=1 to 5 do
        if b[i]=1 then s1:=s1+i
        else if b[i]=2 then s2:=s2+i;
      s1:=abs(s1-s2);
      a[s1]:=a[s1]+1;
 end;
  s:=0;
  for i:=1 to 15 do if a[i]<>0 then s:=s+1;
  writeln(s);
  for i:=1 to 15 do writeln(a[i] div 2);
end.