Сгенерировать все k-значные числа, не кратные 3 и 4

program prog;
 
const
  k = 2;  // задал костантой, вводить с клавы влом :)
          // при k = 8 прога отрабатывает за ~4 секунды (Intel Core2Duo, 2,7 ГГц)
          // при k = 10 ждать терпения не хватило, думаю, минуты 3-4 надо.
 
var
  Value, Limit, Temp: integer;
  Digit, Exponent: Byte;
  Digits: set of 0..9;
 
begin
  Value:= 1;
  for Exponent:= 1 to k - 1 do
    Value:= Value * 10;             
 
  Limit:= Value * 10;                 
 
  // перебираю все числа, кратные 3 и 4
  // и выбираю те, в которых цифры не повторяются
  while Value < Limit do
    begin
      if (Value mod 3 = 1) and (Value mod 4 = 1)
        then begin
               Digits:= [];
               Temp:= Value;
 
               repeat
                 Digit:= Temp mod 10; // беру цифру
 
                 if Digit in Digits   // проверка цифры на уникальность
                   then Break
                   else Include(Digits, Digit);
 
                 Temp:= Temp div 10;  // перехожу к след. цифре
               until Temp = 0;
 
               if Temp = 0
                 then WriteLn(Value);
             end; // if
 
      Inc(Value);
    end;
 
  ReadLn;
end.

 if (Value mod 3 = 1) and (Value mod 4 = 1)

 if (Value mod 3 <>0) and (Value mod 4 <>0)

if (Value mod 3 = 1) and (Value mod 4 = 1)