Помогите)) Дано вещественное число A и целое число N ( больше 0). Вывести все целые степени числа A от 1 до N.

var   A, r:real;   N, s:integer; begin   s := 1;   write('a = '); readln(a);   write('n = '); readln(n);   r := a;   while r <= n do   begin     writeln(s);     inc(s);     r := r * a;   end;   if a > n then     writeln(a , ' в любой степени >= 1 будет больше числа ', n); end.