var b:longint;
a:real;
i:byte;
begin
a:=40000;
b:=3;
for i:=1 to 5 do
a:=a+(a*b/100);
writeln('Население через 5 лет: ',trunc(a));
readln;
end.
var b:longint;
a:real;
i:byte;
begin
a:=40000;
b:=3;
for i:=1 to 5 do
a:=a+(a*b/100);
writeln('Население через 5 лет: ',trunc(a));
readln;
end.