program penny;
uses crt;

{
This program will calculate how much money you would have if you had a
penny and its value doubled every day for a given number of days.

               by 
}

var days,x:integer;
money : real;

begin

repeat

clrscr;
money := 0.01;

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.