Contoh Program Rekursif

Program PerPangkatAn
program pangkat;
uses crt;
var A,x,i,hasil:integer;
begin
writeln(’masukkan bilangan yang akan di pangkatkan’);readln(A);
writeln(’masukkan bilangan pangkat’);readln(x);
hasil:=1;
for i:=1 to x do
hasil:=hasil*A;
writeln(’hasil dari ‘,A,’ pangkat ‘,x,’ adalah ‘,hasil);
readln;
end.