Функция возведения в степень. Для целых чисел.
uses crt;
var
n, p: integer;
function Pow(n, p: integer): real;
var
t: int64;
i, p1: integer;
begin
p1 := abs(p);
t := 1;
for i := 1 to p1 do
t := t * n;
if p < 0 then pow := 1 / t;
if p=0 then pow:=1;
if p>0 then pow := t;
end;
begin
readln(n, p);
writeln(pow(n, p));
end.
