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