Procedure Memanggil Dirinya Sendiri (Rekursi)

Di dalam pascal diperkenankan memanggil procedurenya sendiri. istilah ini disebut sebagai recursion. Dalam penggunaanya membutuhkan memory yang besar. Karena pada setiap pemanggilan sejumlah memory tambahan dibutuhkan.

Contoh :

program procedure_memanggil_dirinya_sendiri;
uses crt;
var
    I : integer;
procedure rekursi;
begin
    writeln('pemangilan procedure ke-',i:5);
    i:=i+1;
    if i < 5 then rekursi;
end;
{modul utama}
begin
    clrscr;
    i:=1;
    rekursi;
    readln;
end