Дано целое число а и целое число n (n> 0) используя цикл ,вывести все степени числа а от 1 до n

program for16;var A, Pow: real; N, i: integer; begin write('Введите A и N: '); read(A, N); Pow := 1; for i := 1 to N do begin Pow := Pow * A; // Умножаем предыдущую число на А writeln(A, ' в ', i, ' степени равно ', Pow); end;end.

var   a,s: real;  
n,i: byte;
begin   write('Введите вещественное a: ');  
readln(a);  
repeat     write('Введите целое n (n>0): ');    
readln(n);  
until (n>0);  
s:=1;  
for i:=1 to n do   begin     s:=s*a;    
writeln(a,' в степени ',i,' = ',s);  
end;  
readln;  //в pascalAbc.net - не обязательно
end.