Пожалуйста посчитайте написать программу в Паскале. Дано вещественное число А и целое N(N>1).вывести в табличном виде все целые степени числа А от 1 до N.

Var
   A,St:real;
   N,L:integer;
Begin
Write('A = ');ReadLn(A);
Write('N = ');ReadLn(N);
St:=1;
For n:= 1 to N do
    Begin
    St:=St*A;
    WriteLn(A,'^',n,' = ',St)
    End;
End.