Para el que este aburrido y tenga ganas de pensar 2

[[seoane]]

Que divertidos son los TBCD

Código Delphi [-]
var
  s,t,u: Variant;
begin
  s:= VarFMTBcdCreate('1',21,0);
  t:= VarFMTBcdCreate('1',21,0);
  u:= s+t;
  while Length(u) <= 20 do
  begin
    s := t;
    t := u;
    u:= s+t;
  end;
  ShowMessage(t);
end;