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

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

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

[Юляшка]

2. Определить 40-е число Фибоначчи.

Код

program fibonaacci;
uses wincrt;
var f0,f1,fn:longint;
   n,i:word;
begin
readln(n);
f0:=0; f1:=1;
write (f0:10,f1:10);
for i:=3 to n do
begin
fn:=f0+f1;
f0:=f1; f1:=fn;
write (fn:10);
end;
end.

Выводит числа Фибоначчи с 1ого до n-ого
если модернизировать,то будет считать все что нужно