[lmikle]

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

Код:

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;