Somme de nombres spéciaux + permutation

On veut calculer la somme de tous les nombres formés de 6 chiffres, et qui sont obtenus en permutant uniquement les chiffres 1, 2, 3, 4, 5 et 6.

123456
+
123465
+
123645
+
123546
+
123564
+
...
+
654321
=
???????????

c'est pas optimal comme code source, mais, ça passe...

Code:

uses wincrt;

function occurence(i:integer;n:longint):integer;
var
 ch,c:string;
 nbr : integer;

begin
    str(n,ch);
    str(i,c);
    nbr := 0;
    for i:=1 to length(ch) do
      if (ch[i] = c) then
          nbr := nbr + 1;

    occurence := nbr;
end;


function ok(n:longint):boolean;
begin
                                                                     
  ok := (occurence(0,n)+occurence(7,n) + occurence(8,n) + occurence(9,n) = 0)
        and
        (occurence(1,n) * occurence(2,n) * occurence(3,n) * occurence(4,n) * occurence(5,n) * occurence(6,n)= 1);

end;


var
  i:longint;
  s: longint;

begin

  s := 0;
  for i:=123456 to 654321 do
      if (ok(i)) then
          s := s + i;

  writeln(s);

end.