Дано вещественное число А и целое число N (> 0). Найти А в степени
N: A^N = A*A...*A (числа А перемножаются N раз).

код на фото

код на фото

===== PascalABC.NET =====

begin

 var a := ReadReal('Укажи число:');

 var n := ReadInteger('В какую степень возвести?');

 var r := 1.0;

 loop n do

   r *= a;

 Writeln(a, '^', n, ' = ', r)

end.