[pascal] potęgowanie do n-tej

[jasnoniebieski.5]

Witam
Czy zna ktoś funkcję na potęgowanie x^y?
np. windowsowski kalkulator ma taką opcję.
Z góry dziękuję za odpowiedz.

[adam.slazinski]

eee to proste

function potega(l:real; w: integer):real;//potęgowanie liczby l do potęgi w
var i: integer;//zmienna interakcyjna
x:real; //bufor gdzie jest przechowywana liczba
begin
x:=l;
for i:=1 to w-1 do
begin
x:=x*l;
end;
potega:=x ;
end;