0,1,1,2,3
basic:
dim a as integer
dim b as integer
dim s as integer
a=1
b=1
s=2
for i = 3 to n;
s=a+b
a=b
b=s
end for
c:
void main()
{
int i;
int array[n];
array[0]=0;
array[1]=1;
for (i=2;i=array[i-1]+array[i-2];
}
}
delphi:
begin
{
integer array[n];
int i;
array[0]=0;
array[1]=1;
for (i=2;i=array[i-1]+array[i-2];
}
end;