Выложил свои изыскания... Включая ТОЧНОЕ решение пятой задачи на основе рекуррентных формул Беллмана.
Сам же решал ее изначально так:
var m1,m2,m3,m4,m5,m6,s1,s2,s3,s4:integer;
wm,ws,d,s,m:longint;
begin
wm:=0;
ws:=0;
d:=0;
for m1:=1 to 6 do
for m2:=1 to 6 do
for m3:=1 to 6 do
for m4:=1 to 6 do
for m5:=1 to 6 do
for m6:=1 to 6 do
for s1:=1 to 6 do
for s2:=1 to 6 do
for s3:=1 to 6 do
for s4:=1 to 6 do
begin
if (m1+m2+m3)>(m4+m5+m6) then m:=m1+m2+m3 else m:=m4+m5+m6;
{ m:=m1+m2+m3;}
s:=s1+s2+s3+s4;
if m>s then inc(wm) else
if m<s then inc(ws) else inc(d);
end;
writeln(ws,' ',wm,' ',d);
end.