Ответ:

код на фото

код на фото

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

begin

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

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

 var r := 1.0;

 loop n do

   r *= a;

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

end.