Из последовательности N первых натуральных чисел выбираются числа, которые при записи в римском представлении (римскими цифрами) будут иметь длину, равную М. Для N = 3500 и М = 5 будет выбрано ____ чисел

Делалось из рассчета что 4 записывается 4 единицами и тп Для N = 3500 и М = 5 будет выбрано 216 чисел const     symbols_count = 7;     symbols: array[1..symbols_count] of integer = (1000, 500, 100, 50, 10, 5, 1); var     num, n, m, c, i, j, res: integer; begin     readln(n, m);          for i := 1 to n do     begin         num := i;         c := 0;         for j := 1 to symbols_count do             if num >= symbols[j] then             begin                 c := c + num div symbols[j];                 num := num mod symbols[j];             end;                      if c = m then begin             {writeln(i);}             res := res + 1;         end;     end;          writeln(res); end.