числа фибоначчи паскаль

Ответ от Gennady[гуру]
Доброго времени суток.

Так ведь все сами рассказали.

F1 := 1;
F2 := 1;
if n < 3 then WriteLn(F1) {вывод первых двух}
else begin
for i:= 3 to n do begin {поиск n-ого}
F := F1 + F2;
F1 := F2;
F2 := F;
end;
WriteLn(F); {вывод результата}
end;

Остальное сами.

Удачи!