codevs天梯 fibonacci数列水题

题目：

斐波纳契数列是这样的数列：

f1 = 1

f2 = 1

f3 = 2

f4 = 3

....

fn = fn-1 + fn-2

输入一个整数n

求fn

代码：

var   f:array [0..50] of longint;   n,i:longint; begin   readln(n);   f[1]:=1;f[2]:=1;   for i:=3 to n do     f[i]:=f[i-1]+f[i-2];   write(f[n]); end.