interest computing problem

[Andrew <eagletalon@chartermi.net>]

ok I've run into a snag  .. and i'm hoping that a programmer can help me 
out.

here is a copy of my program (written in Ada)

====
-- computes Interest on money invested

with TEXT_IO;
use TEXT_IO;

procedure Interest is
    Initialamt : Float;
    Interest : Float;
    TimeNWeeks : Integer;
    DRate : Float;
    Days : Integer;
    Balance : Float;

    package NUMBER_IO is new INTEGER_IO(INTEGER);
    use NUMBER_IO;
    package Float1_IO is new Float_IO(FLOAT);
    use Float1_IO;

begin
    New_Line;
    Put ("How much money do you have-Please add cents? example 365.22 ");
    Get (Initialamt);

Put ("What is the interest you will receive? ");
    Get (Interest);
 

    Put ("How long will it be invested in weeks? ");
    Get (TimeNWeeks);
 

    New_Line;
 

    Days:=TimeNWeeks * 7;
    DRate:=(Interest/100.0)/365.0;
    Balance:=Initialamt * (1.0+DRate)**Days;
 

    New_Line;
    Put ("Your ending balance will be ");
    Put (Balance);
 

    New_Line;
end Interest;


========================================


now here is the output from when I try to run the program
==================
How much money do you have-Please add cents? .02
What is the interest you will receive? 25
How long will it be invested in weeks? 4


Your ending balance will be  2.03872E-02
[andrew@stc program]$ ./interest

How much money do you have-Please add cents? .02
What is the interest you will receive? .25
How long will it be invested in weeks? 4


Your ending balance will be  2.00038E-02

============

but I'm hoping that this is just a simple case of I .. well *L* I'm 
hoping this is a simple error that I'm overlooking..

sub-note : this program is directly copied from a printout of a program 
that I wrote in college (and it worked on the colleges computers).

By the way I'm writing this on a Red Hat Linux 9.0 computer (I don't 
think that would matter but ..)