var i, a, b, c, d, e: integer;
begin
     for i := 1000 to 9999 do
     begin
          a := i div 1000;
          b := i mod 1000 div 100;
          c := i mod 100 div 10;
          d := i mod 10;
          if (a * b - c * d = a + b + c + d) then inc(e);
     end;
     writeln(e);
end.