program keturzenkliu_skaiciu_suma;
  { 86 u‘davinys }
{----------------------------------------------------------}
  type skaitmuo = 0..9;
  function keturzenkliai (a, b, c, d : skaitmuo) : longint;
    var sk1, sk2, sk3, sk4 : skaitmuo;
        { nagrin‚jamo ketur‘enklio skaitmenys }
        i                  : integer;
        suma               : longint;
    procedure sukeisti (var x, y : skaitmuo);
    { sukei‡ia kintam—j— x ir y reikžmes vietomis }
      var tarp : skaitmuo;
    begin
      tarp := x;
      x := y;
      y := tarp
    end;
    procedure rikiavimas (var a, b, c, d : skaitmuo);
    { surikiuoja keturis skaitmenis did‚jimo tvarka }
    begin
      if a > b then sukeisti (a, b);
      if a > c then sukeisti (a, c);
      if a > d then sukeisti (a, d);
      if b > c then sukeisti (b, c);
      if b > d then sukeisti (b, d);
      if c > d then sukeisti (c, d)
    end;
  begin
    rikiavimas (a, b, c, d);
    suma := 0;
    for i := 1000 to 9999 do
      begin
        sk1 := i mod 10;       { ižskaidome skaitmenimis }
        sk2 := i div 10 mod 10;
        sk3 := i div 100 mod 10;
        sk4 := i div 1000;
        rikiavimas (sk1, sk2, sk3, sk4);
        if (a = sk1) and (b = sk2) and (c = sk3) and (d = sk4)
           then suma := suma + i;
      end;
    keturzenkliai := suma;
  end;
{----------------------------------------------------------}
  var a, b, c, d : skaitmuo;
begin
  writeln ('­veskite keturis skaitmenis');
  readln (a, b, c, d);
  writeln (keturzenkliai (a, b, c, d))
end.


