program poploop;
uses crt;

{--------------------------------------------------------------------------

This program will ask for a town's population, its growth rate, and how many
years are passing, and it will figure out what the population of the town
will be.
                        by 

--------------------------------------------------------------------------}


VAR rate,peeps:real;
n,x,v:integer;
begin

clrscr;
write ('What is the population of the town? --->  ');
readln (peeps);
writeln;
write ('What is the growth rate of the town (written as a decimal) --->  ');
readln (rate);
writeln;
write ('You want to know what the popualtion will be in how many years? --->  ');
readln (x);
writeln;
writeln;
n := 0;
for v := 1 to x do peeps := peeps * (1 + rate);

textcolor (green);
writeln ('In ',x,' years, the population of Fairfax will be ',peeps:0:0);



readln;

end.