program b13;
uses crt;
var d,g:text;n:longint;a:array[1..1000]of longint;
procedure fibonaci;
var b,i,k:longint;
begin
a[1]:=1;
a[1]:=1;
for i:=3 to 46 do a[i]:=a[i-1]+a[i-2];
assign(d,'FIBO.INP');
reset(d);
readln(d,n);
assign(g,'FIBO.OUT');
rewrite(g);
writeln(g,n);
repeat
k:=1;
while a[k]<b do inc(k);
if a[k]>b then
begin
dec(k);
write(g,a[k]);
b:=b-a[k];
end;
if a[k]=b then
begin
write(g,a[k]);
b:=b-a[k];
end;
if b<>0 then write(g,'+');
until b=0;
close(d);close(g);
end;
begin
clrscr;
fibonaci;
writeln('go enter va vao file output2.txt de xem kq');
readln;
end.