var
b0, q : double;
begin
writeln('Введите b0 и q:');
readln(b0, q);
writeln;
for var i := 1 to 10 do
writeln(b0 * exp((i - 1) * ln(q)));
end.
