Pascal написать процедуру для расчета степени n вещественного числа a ( n-натуральное число).

Procedure Power(x:real; n:integer);
var i:integer;
     p:real;
begin
p:=1;
 for i:=1 to n do
  p:=p*x;
end;