[an error occurred while processing this directive]
Listing CONVERS.PAS 
{$N+} 
Program Conversie_Zecimal_Fibonacci; 
var n,fn,fn_1,f:comp; 
Begin 
Write('Introduceti un numar natural in baza 10'); 
Readln(n); 
{ determina doi termeni consecutivi din sirul } 
{ Fibonacci, mai mari decat n } 
fn:=1; fn_1:=1; 
repeat 
f:=fn_1+fn; 
fn_1:=fn; 
fn:=f; 
until fn_1>n; 
{ afiseaza pe ecran reprezentarea numarului x } 
{ in sistemul de numeratie Fibonacci } 
Write('Numarul ',n:10:0,' in reprezentarea 
Fibonacci este '); 
if n=0 
then Write(0) 
else 
while fn_1>1 do 
begin 
f:=fn-fn_1; 
fn:=fn_1; 
fn_1:=f; 
if f>n 
then Write(0) 
else 
begin 
Write(1); 
n:=n-f 
end 
end; 
Writeln; 
Readln 
End.