TONGFIBO Pascal

var n:longint;
    f:array[0..100] of int64;

procedure taofibo(n:longint);
Var i:longint;
begin
    f[0]:=1;
    f[1]:=1;
    for i:=2 to 50 do f[i]:=f[i-1]+f[i-2];
end;

procedure giai;
var i,j:longint;
begin
    taofibo(n);
    for i:=50 downto 1 do
    begin
        if f[i]<=n then
        begin
            n:=n-f[i];
            write(f[i],' ');
        end;
    end;
end;

begin
    assign(input,'tongfibo.inp');reset(input);
       assign(output,'tongfibo.out');rewrite(output);
    read(n);
    giai;
end.