¡Se necesita urgentemente! La programación genera la secuencia de Fibonacci dentro de 10,000 en el formato de 10 líneas. Escriba el código completo del programa. (Fibonacci

var f:array[0..100]?of?longint; i,k:integer;

begin f[0]:=1;?f[1]: =1; i:=1; repetir inc(i); f[i]:=f[i-1]+f[i-2]; ; para?i:=0?to?k?do? if?i?mod?10=9?then?writeln(f[i]:7)? else?write(f[i]:7);

fin.

Lo anterior es un programa pascal.