Помогите решить задачки циклом Repeat, Решение задач. Опции

[Гость_Андрей]

1. Произведение N первых нечётных чисел равно p. Cколько сомножителей взято?
2. Определить 40-е число Фибоначчи.
Поиск первого числа Фибоначчи, большего m(m+1);
Вычисление суммы всех чисел Фибоначчи, которые не превослодять 1000.

[trminator]

1. Произведение N первых нечётных чисел равно p. Cколько сомножителей взято?

Чтобы понятнее: дано произведение N первых нечетных чисел. Вопрос: чему равно N?

Код

program proizv;
var p : integer; {Дано}
   n : integer; {Найти}
   cur, cur_p : integer; {в cur - текущий множитель (нечетное число), в cur_p - текущее произведение}
begin
   readLn(p);
   cur := 1; cur_p := 1; n := 0;
   repeat
       cur_p := cur_p * cur;
       inc(n);
       cur := cur + 2;
   until cur_p >= p;
   writeLn(n)
end.

А чтобы не было совсем халявы тут не предусмотрен вариант, что ответа нет (введу я, например, 16, а мне выдаст - 3). Допиши сам