Program CPascal; uses crt;

var x:int64;
    pow:integer;
    ch:char;

Begin
Repeat
  Repeat
    Write('Введите число (X > '+MaxInt+'): '); Readln(X);
    if (X <= MaxInt) then Writeln('Ошибка: Неверный диапазон. Повторите ввод...');
  Until (X > MaxInt);

  Repeat
    Write('Введите степень числа (Pow > 10): '); Readln(Pow);
    if (Pow <= 10) then Writeln('Ошибка: Неверный диапазон. Повторите ввод...');
  Until (Pow > 10);

  Writeln('Ответ: ',Exp(Pow * ln(X)));

  Writeln('Для выхода из программы нажмите клавишу "Esc"');
  Ch:=Readkey;
Until (Ch in [#27]);
end.