program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,

var
   i, Am : integer;

function IsThree(Value : integer): integer;
var
   count : integer;
begin
   count := 0;
      if (value div 100) mod 11 = 0 then   // Первые две одинаковые
      begin
         if ((value div 100) div 11 = (value mod 100) div 10) or// сравниваю эту одинаковую с другими двумя
            ((value div 100) div 11 = (value mod 100) mod 10) then
            IsThree := 1
         else
            IsThree := 0;

      end
      else
         if (value mod 100) mod 11 <> 0 then
            IsThree := 0
         else
            if ((value mod 100) div 11 = (value div 100) mod 10) or   // то же самое
               ((value mod 100) div 11 = (value div 100) div 10) then
               IsThree := 1
            else
               IsThree := 0;
end;

begin
   for i := 1 to 9999 do
   begin
      case i of
         1 .. 9 : Am := Am + IsThree(i*1000);
         10 .. 99 : Am := Am + IsThree(i*100);
         100 .. 999 : Am := Am + IsThree(i*10);
         else
            Am := Am + IsThree(i);
      end;

   end;
   writeln('Amount :', Am + 1);  // 1 - это 0000
   Readln;
end.