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