Решение ребуса "ладья+ладья=ферзь" с помощью множеств

program Rebus;
Type Mn=set of 0..9;
Var i,j,cnt:integer;
    Sm,Se:Mn;
Procedure Change(t:integer; Var S:Mn);
Begin
    S:=[];
    while t<>0 do
          begin
                S:=S+[t mod 10];
                t:=t div 10;
          End;
End;
Function Qw(S:Mn):integer;
Var i,cnt:integer;
Begin
    cnt:=0;
    for i:=0 to 9 do
        if i in S then inc(cnt);
        Qw:=cnt;
End;
Begin
    cnt:=0;
    for i:=1000 to 4999 do
      Begin
       Change(i,Sm);
              if Qw(Sm)=4 then
                 Begin
                     j:=2*i;
                     change(j,Se);
                     if (Sm*Se=[]) and (Qw(Se)=4) then
                         begin
                            inc(cnt);
                            writeln(i,'+',i,'=',j);
                         end;
                 end;
      end;
  writeln(cnt);
End.

program Rebus;
Type Mn=set of 0..9;
Var i,j,cnt:integer;
    Sm,Se:Mn;
Procedure Change(t:integer; Var S:Mn);
Begin
S:=[];
while t<>0 do
 begin
  S:=S+[t mod 10];
  t:=t div 10;
 End;
End;
Function Qw(S:Mn):integer;
Var i,cnt:integer;
Begin
cnt:=0;
for i:=0 to 9 do
if i in S then inc(cnt);
Qw:=cnt;
End;
Begin
cnt:=0;
for i:=10000 to 49999 do
 Begin
  Change(i,Sm);
  if Qw(Sm)=5 then
   Begin
    j:=2*i;
    change(j,Se);
    if (Sm*Se=[]) and (Qw(Se)=5) then
     begin
      inc(cnt);
      writeln(i,'+',i,'=',j);
     end;
   end;
 end;
writeln(cnt);
End.