Question

Помогите, пожалуйста, написать программу

Answer 1

Вот) Тут используется формула $a^b=e^{b*text{log}_e{a}}$

var
  i: integer;

begin
  i := 1;
  while exp(i*ln(5)) <= 25000 do
  begin
    writeln('A_', i, ' = ', exp(i*ln(5)));
    inc(i);
  end;
end.