Ответ:

var degree: integer;

number, res: real;

 flag: boolean;

begin

 res:= 1;

writeln('Число, степень:');

readln(number, degree);

if(degree < 0) then

begin

 for var i := 1 to -degree do

   res := res / number;

 end

else

 for var i := 1 to degree do

   res := res * number;

writeln(res);

end.

Объяснение:

begin

 var (m, p) := ReadInteger2('Укажите число и показатель степени:');

 if p = 0 then

   Write(1)

 else

 begin

   var z := Sign(p);

   p := Abs(p);

   var r: int64 := m;

   for var i := 2 to p do

     r *= m;

   if z > 0 then

     Write(r)

   else

     Write(1 / r);

 end;

end.

==PascalABC.NET==