program hello;
uses crt;
var n, d, a, b, i: longint;
begin
 readln(n);
 for i:= 99 to n - 1 do 
  if i mod 9 = 0 then
   begin 
    a:= i mod 10;
    b:= i;
    while a = b mod 10 do b:= b div 10;
    if b = 0 then d:= d + 1;
   end;
 writeln(d);
readln;
end.

====================================
Số nhỏ nhất có hai chữ số giống nhau và chia hết cho 9 là 99 nên vòng lặp bắt đầu từ 99 nếu n nhỏ hơn hoặc bằng 99 thì không cần tính và in ra 0

Khi i chia hết cho 9 thì ta cho a = một số trong i ( a = i mod 10) và gán b = i

So sánh a với b mod 10 nếu bằng nhau thì b = b div 10 để so sánh tiếp.

khi so sánh hết và b = 0 thì đó là số cần tìm và cộng d thêm 1.

Trong ví dụ ở trên thì số 666 sẽ chia hết cho 9 và có các chữ số giống nhau

- Nếu x có ít nhất 2 chữ số:

uses crt;
var a,n,d:longint;
begin
    clrscr;
    readln(n);
    a:=3;d:=0;
    repeat
        a:=a*10+3;
        if a < n then
            if a mod 9 = 0 then
               inc(d);
    until a >= n;
    a:=9;
    repeat
        a:=a*10+9;
        if a < n then
            inc(d);
    until a >= n;
    writeln(d);
readln;
end.

- Nếu x phải là số có 2 chữ số :v

uses crt;
var a,n,d:longint;
begin
    clrscr;
    readln(n);
    if n > 99 then write(1)
        else write(0);
readln;
end.

- Thiếu số 666 nên thêm vô 1 ít :))
uses crt;
var a,n,d:longint;
begin
    clrscr;
    readln(n);
    a:=3;d:=0;
    repeat
        a:=a*10+3;
        if a < n then
            if a mod 9 = 0 then
                inc(d);
    until a >= n;
    a:=6;
    repeat
        a:=a*10+3;
        if a < n then
            if a mod 9 = 0 then
                inc(d);
    until a >= n;
    a:=9;
    repeat
        a:=a*10+9;
        if a < n then
           inc(d);
    until a >= n;
    writeln(d);
readln;
end.