Algoritma pangkat secara Rekursif

function Pangkat(x, y : integer) ? integer
Deklarasi lokal :
{tidak ada}
Algoritma :
        if y=0 then
           return 1
        else
          return (x*Pangkat(x,y-1))
        endif.

Program PangkatRek
Deklarasi :
        x, y, hasil : integer
        function Pangkat(x, y : integer) ? integer
Algoritma :
       read(x, y)
       hasil:=Pangkat(x,y)
       write(x,'^',y,' = ',hasil)