Вообщем я чёто туплю - нужна программа, которая считает сколько в пятизначных числах от 10000 до chislo (вводится с клавеотуры) чисел, в которых хотябы две единички. Вот написал, но когда запускаю и ввожу число (например 10011) - программа повисает, спасает токо CTRL+PauseBreak
В чём я ошибся - подскажите плз.

program _11;
var n,i,k,a,c,chislo:integer;

begin

readln(chislo);

n:=0;

for i:=10000 to chislo do

begin
     for k:=1 to 4 do
     begin
          a:=i mod 10;
          if a=1 then n:=n+1;
          i:=i div 10;
     end;
     if n>=2 then c:=1;
end;

writeln(n);
readln;
end.

Заранее спасибо

у тебя цикл с i, ты не можешь изменять i в цикле... отсюда и ошибки.
Используй внутри цикла другую переменную.

вот так сделай:

program _11;
var n,i,c,chislo,j:integer;

begin

readln(chislo);

n:=0;

for i:=10000 to chislo do

begin
     j:=i; c:=0;
     while j<>0 do begin
      if j mod 10 = 1 then inc©;
      j:=j div 10;
     end;
     if c>=2 then inc(n);

end;

writeln(n);
readln;
end.

заметь я убрал лишние переменные...
и еще
это считае включительно!

Спасибо, теперь понял!