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

Вот) Тут используется формула [latex]a^b=e^{b*\text{log}_e{a}}[/latex] 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.