program penny2;
uses crt;

{
This program will calculate how much money you will have if you put a
given amount of money in the bank and its value doubles every day for
a given number of days.

                     by 
}

var days,x:integer;
money : real;

begin

repeat

clrscr;


write ('What is your starting amount of money? (in dollars) --->  ');
readln (money);
writeln;
write ('For how many days will your penny be growing? (to quit, enter ''0'') --->  ');
readln (days);

for x := 1 to days do money := money * 2;
writeln;
writeln;
writeln ('After ',days,' days of letting your penny grow, you ended up with $',money:0:2);

readkey;

until days = 0;
end.