Написать программу в паскале. дано вещественное число а и целое 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.