Вопрос по информатике:

Помогите))

Дано вещественное число 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.