Para el que este aburrido y tenga ganas de pensar 2

[roman]

Por cierto, para compensar el gasto de los variants, podemos ahorrarnos una variable:

Código Delphi [-]
var
  s, t: Variant;

begin
  s:= VarFMTBcdCreate('1', 21, 0);
  t:= VarFMTBcdCreate('1', 21, 0);

  while Length(s + t) <= 20 do
  begin
    t := s + t;
    s := t - s;
  end;

  Edit1.Text := t;
end;

Si no te gustan los variants entonces no te gustará programar con php. Sin embargo a mi cada vez me gustan más los lenguajes no tipificados, es taaan cómodo programar sin tener que declarar todo.

// Saludos