[lmikle]

Угу, при цикле While счетчик надо самому наращивать.
Только вопрос, а почему не for?

Код:

1 2 3 4 5 6 7 8 9 10 11 12

function IsSimpleNumber(A : Integer) : Boolean; begin   // Здесь сам напишешь end;   var   I, Count : Integer; begin   Count := 0;   For I := M To N Do     If IsSimpleNumber(I) Then Inc(Count); end;