Question

Дано вещественное число А и целое число N>0. Вывести все целые степени числа A от 1 до N.

Answer 1

var n,i:integer;
a,s:real;
Begin
    s:=1;
    for i:= 1 to n do Begin
        s:=s*a;
        writeln(s);
    end;
End.