Дано целое число а и целое число 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.