Количество простых чисел, на промежутке от N1 до N2, у которых цифры упорядочены строго по возрастанию.

//fpc 3.0.0
 
program HelloWorld;
 
function isPrime(number : integer) : boolean;
var
   i : integer;
   res : boolean;
   
begin
   res := false;
   if (number > 3) and (number mod 2 <> 0) then
   begin
      i := 3;
      res := true;
      repeat
         if (number mod i = 0) then 
         begin
            res := false;
            break;
         end;
         inc(i);
      until (i > sqrt(number));
   end
   else if (number = 3) then res := true;
   
   isPrime := res;   
end;
 
function isSort(number : integer) : boolean;
var
   res : boolean;
   ost : integer;
   
begin
   res := true;
   if (number >= 10) then
   begin
      ost := 10;
      while (number <> 0) do
      begin
         if (number mod 10 < ost) then ost := number mod 10
         else begin
            res := false;
            break;
         end;
         number := number div 10;
      end;
   end;
   isSort := res;
end;
 
var
   n1, n2 : integer;
   i : integer;
 
begin
    n1 := 1;
    n2 := 100;
    for i := n1 to n2 do
    begin
       if isPrime(i) and isSort(i) then write(i, ' ');
    end;   
end.

var
  i, n, n1, n2: longint;
  b: boolean; 
  digit, count: integer;
 
begin
  count := 0;
  readln(n1, n2);
  if n1 > 123456789 then n1 := 123456789; // после 123456789 до миллиарда чисел с возрастающими цифрами нет
  if n2 > 123456789 then n2 := 123456789; // поэтому рассматривать эти числа не будем, это ускорит программу
  
  for i := n1 to n2 do
  begin
    // сначала проверим, что у числа i все цифры строго возрастают. Эта проверка быстрее проверки на простоту
    digit := 10;
    n := i;
    while (n > 0) and (digit > n mod 10) do 
    begin
      digit := n mod 10; 
      n := n div 10;
    end;
    
    if n = 0 then // да, строго возрастающие цифры. Теперь проверяем на простоту
    begin
      b := true;
      for var k := 2 to Trunc(sqrt(i)) do
        b := b and (i mod k <> 0); // тут можно еще чуть ускорить, если заменить for на while, и выходить из него сразу как только b = false
      if b then inc(count); // если число простое - увеличиваем счетчик
    end
  end;
  writeln(count);
end.