[Страдалецъ]

1. Преобразовать число в строку.
2. Циклом от конца к началу найти искомое.

Код:

1 2 3 4 5 6 7 8 9 10

N := 123456; S := IntToStr(N); N := 0; for i := Length(S) downto 1 do if S[i] = '3'     then begin            N := i;            break;            end; WriteLn(N);