решите: USSR+USA=REACE

Var u,s,r,a:byte;
ussr,usa,peace:integer;
begin
for u:=1 to 9 do
 for s:=0 to 9 do
  for r:=0 to 9 do
   if (ult;gt;s)and(ult;gt;r)and(slt;gt;r) then
    begin
    ussr:=u*1000+s*100+s*10+r;
    for a:=0 to 9 do
     if (alt;gt;u)and(alt;gt;s)and(alt;gt;r) then
      begin
      usa:=u*100+s*10+a;
      peace:=ussr+usa;
      if (peacegt;9999)and(peace div 100 mod 10 = a)
         and(peace div 1000 mod 10 = peace mod 10)
          then writeln(u,s,s,r,'+',u,s,a,' = ',peace);
      end;
     end;
end.

Результат:
9338+932 = 10270
9447+943 = 10390