Power

function Power(a:real;b:integer):real;
var i:integer;
temp:real;
begin
    temp:=a;
    for i:=2 to b do
    temp:=temp*a;
Power:=temp;
end;