begin
  var a := ReadLnReal('Введите число:');
  var n := ReadLnInteger('Введите степень:');
  var p := 1.0;
  var i := 0;
  repeat
    p *= a;
    i += 1;
  until i = n;
  WriteLn('Ответ: ', p);
end.