« FherNando »

{ The procedure occurs every day
  at the same time, 12:00 am      }

 Procedure GrowUp
 Const
   MaxAge:25; // Maximum Age for Caro
 Var
   Age:Integer;
   Days:integer;
 Begin
   Days:=Days+1;
    if Days = 365 then // June 11th for Caro
    begin
      if Age < MaxAge then
      begin
         Age:=Age+1;
      end;
      Days:=0;
    end;
 End;

2 Comentarios : “La forma ideal de crecer ( según Caro )”

1. Carito Dice:
   April 24th, 2006 at 5:47 pm

   asi es…yo ya estoy ciclada en los 25 jeje :D, voy a pasarles este dato a mis cuatas p’ q vean mi teoria…tnxs
   Mi Hi5

2. Anonymous Dice:
   April 26th, 2006 at 3:11 pm

   Aceptalo… no eres galán.
   Sprite, las cosas como son.
   (Crestomatía, 2006)

   Soy Fernando

Deja un Comentario