Задача на динамическое программирование. 

Дано число N. Нужно вычислить N-ое число Фибоначчи (Первое - 1, второе - 1, третье - 2, четвертое - 3, ...).

  • VAR
       n, i, f1, f2, f3: LongInt;
    BEGIN
       Read(n);
       f3 := 1;
       for i := 1 to n do begin
          f1 := f2; f2 := f3;
          f3 := f1 + f2; end;
       Write(f3);
    END.