Program BTT;
Uses crt;
Var n,x,y,z: qword;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        Repeat
                x:=1; y:=0;
                Repeat
                                z:=x+y;
                                x:=y;
                                y:=z;
                Until z>n;
                Write(x,' ');
                n:=n-x;
        Until n=0;
        Readln
End.

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.