Var
 kot,usi,R:Array[1..100] of Integer;
 i,j,k,Rmax:Integer;
 f:text;

Function St1(n:Integer):boolean;
var S:String;
begin
 Str(n,S);
 St1:=(S[1]<>S[2]) and (S[1]<>S[3]) and (S[2]<>S[3]);
end;

Function St2(n,m:Integer):boolean;
var
 Sn,Sm:String;
 p,q:byte;
 b:boolean;
begin
 Str(n,Sn);
 Str(m,Sm);
 b:=true;
 for p:=1 to 3 do
  for q:=1 to 3 do
   if Sn[p]=Sm[q] then b:=false;
 St2:=b;
end;

Function Sum(n:Integer):Byte;
var
 m:Integer;
 Smm:byte;
begin
 m:=n;
 Smm:=m mod 10;
 m:=m div 10;
 Smm:=Smm+(m mod 10)+(m div 10);
 Sum:=Smm;
end;

Begin
 Assign(f,'D:\kot_usi.txt');
 Rewrite(f);
 Rmax:=0;
 j:=0;
 for i:=400 to 999 do
  if ((i mod 4)=0) then
   begin
    k:=i div 4;
    if St1(k) and St1(i) and St2(k,i) then
     begin
      j:=j+1;
      usi[j]:=i;
      kot[j]:=k;
      R[j]:=Sum(usi[j]);
      if R[j]>Rmax then Rmax:=R[j];
      writeln(f,j:2,')  ',kot[j],' + ',kot[j],' + ',kot[j],' + ',kot[j],' = ',usi[j], '   Sum = ',R[j]);
     end;
   end;
 Writeln(f);
 Writeln(f,'With maximal sum:');
 for i:=1 to j do
  if R[i]=Rmax then
   writeln(f,'     ',kot[i],' + ',kot[i],' + ',kot[i],' + ',kot[i],' = ',usi[i], '   Sum = ',R[i]);
 Close(f);
End.