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