Ответ:

154

Объяснение:

var x, x1, k, m, n : integer;

begin

 k := 0;

 for x1 := -1000000 to 10000000 do begin

   x := x1;

   m := 0;

   n := 0;

   while x > 0 do begin

     if n < x mod 10 then n := x mod 10;

     m := m + 1;

     x := x div 10;

   end;

   if (m = 3) and (n = 7) then k += 1;

 end;

 writeln(k);  

end.