1+4(AKKKK型):5*4=20
2+3(AAKKK型):5*4=20

所以，5+20+20=45

const x:array[1..5] of string=('10','J','Q','K','A');
var a,b,c,d,e:integer;
begin
  for a:=1 to 5 do
    for b:=1 to 5 do
      for c:=1 to 5 do
         for d:=1 to 5 do
            for e:=1 to 5 do
              writeln(x[a],x[b],x[c],x[d],x[e]);
end.

谢了