Составить программу на языке паскаль ввести с клавиатуры вещественное число a и целое число n (> 0). вывести все целые степени числа a от 1 до n.

Var a,an:real; n,i:integer;
begin
readln(a,n);
an:=1;
for i:=1 to n do
 begin
 an:=an*a;
 writeln(a:3:2,'^',i,' = ',an:6:3);
 end;
end.

Пример:
2.0 5
2.00^1 = 2.000
2.00^2 = 4.000
2.00^3 = 8.000
2.00^4 = 16.000
2.00^5 = 32.000

Var
    a: real; 
    n: integer;
begin
    read(a, n);
    for var k := 1 to n do
    begin
        write(power(a, k), ' ');
    end;
end.