Население увеличивается на 5 процентов ежегодно, в текущем году оно составляет 40000 человек. чему оно будет равняться через 3 года.

Pascal

var   
k,p : real;   
i : integer; 
begin 
k := 40000; 
p := 1.05; 
 for i := 1 to 3 do   
 k := k *p; 
 writeln (k:3:2);   
end.