限制pascal语言中的一个变量从一到十

program Project1;
uses
  math;
var
  num1: integer;
  power: integer;
  answer: integer;
begin
  writeln('This program will accept two input values and raise the first number to the power of the second value');
  writeln('Please enter the first number');
  readln(num1);
  writeln('Please enter the second number');
  readln(power);

  answer:= (num1**power);
  writeln(answer);
  readln();
end.