菲波那契数列 pascal !

题目描述

菲波那契数列是指这样的数列: 数列的第一个和第二个数都为1，接下来每个数都等于前面2个数之和。

给出一个正整数a，要求菲波那契数列中第a个数是多少。

输入

第1行是测试数据的组数n，后面跟着n行输入。每组测试数据占1行，包括一个正整数a(1 <= a <= 20)

输出

输出有n行，每行输出对应一个输入。输出应是一个正整数，为菲波那契数列中第a个数的大小

样例输入

4

5

2

19

1

样例输出

5

1

4181

1

var num:array[1..20]of integer;
i,m:integer;
begin
while not eof do
begin
num[1]:=1;
num[2]:=1;
for i:=3 to n do
num[i]:=num[i-1]+num[i-2];
writeln(num[n]);
end;
end.