[lenaustkz84]

Вот и я думала тоже про отрицательное число N и про ноль.
Но "успокоила" себя тем, что никто и не подумает вводить
такие цифры, ведь логично их не вводить.

Но замечание Ваше учла
И согласна. Все таки правильно поставить "защиту от дурака"

Сначала хотела с while, но тогда нунжно дважды прописывать
предложение ввода переменной N и ее считывание.
Мне показалось это не удобным.

Вот так было вначале:

Код:

write('Введите любое положительное число: '); readln(N); writeln();
     while (N<=0) do
          begin
             write('Введите любое положительное число: '); readln(N); writeln();
          end;

Потом решила сделать так:

Код:

repeat
     write('Введите любое положительное число: '); readln(N); writeln();
until(N>0);

С repeat...until удобно оказалось это сделать. Ничего дважды прописывать не надо.

lxa85, спасибо за совет
Посижу еще над программкой, подумаю