Помогите,пожалуйста. Не знаю как сделать посчет цифр

[Natalya96]

1. Вывести все четырехзначные числа на отрезке [a, b], сумма двух первых цифр которого равна произведению двух последних. Подсчитать количество таких чисел.

программу написала:

var i,n: integer;
    a, b: 1000..9999;
begin 
readln (a,b);
for i:=a to b do 
if ((i div 1000)+(i div 100 mod 10))=((i div 10 mod 10) * (i mod 10)) then write ((i):5);
end.

А вот как подсчитать количество чисел не знаю(((

[Serge_Bliznykov]

А вот как подсчитать количество чисел не знаю(((

var i: integer;
    a, b: 1000..9999;
    Count : integer;
begin 
  readln (a,b);
  Count := 0; {обнулим счётчик}
  for i:=a to b do 
   if ((i div 1000)+(i div 100 mod 10))=((i div 10 mod 10) * (i mod 10)) 
     then  {если нашли подходящее число, тогда }
      begin 
          write ((i):5); {выведем найденное число}
          Inc(Count); {увеличим счётчик на единицу, эквивалент Count := Count + 1;}
      end;
   WriteLn(' kolichestvo = ', Count);
end.

у вас была описана переменная n - можно было использовать не переменную Count, которую я описал, а вашу переменную n

[Natalya96]

А почему когда я пишу вот так

var i,n: integer;
    a, b: 1000..9999;
    
begin 
  readln (a,b);
  n:= 0; 
  for i:=a to b do 
   if ((i div 1000)+(i div 100 mod 10))=((i div 10 mod 10) * (i mod 10)) 
     then  
      begin 
          write ((i):5); 
         n:= n+1; 
      end;
   WriteLn(n);
end.

у меня не выходит количество n?

все я сделала, все выводит только я не замечаю

[Stilet]

Перед end. ставь readln чтоб задержать консоль до нажатия энтера.