Код для возведения числа в степень:

Uses Math;

var
  r: Extended;
begin
  r := Power(2, 4);
  writeln('Тест функции power() - ', r:0:0);
end.