[Igor]

Не надо стрелять из пушек по воробьям

function power(chislo : integer, stepen : integer) : integer;
var i,x:integer;
begin
x:=1;
for i:=1 to stepen do
x:=x*chislo;
end;

Эта функция для вычисления небольшой положительной степени