Procedure Tersarang

Procedure tersarang adalah procedure yang terdapat di dalam procedure yang lain dan dipanggil oleh procedure diluarnya.

program contoh_procedure_tersarang;
uses crt;
procedure satu; {deklarasi procedure satu}
procedure dua;
begin {awal procedure dua}
    writeln('procedure dua ada di procedure satu');
end; {akhir procedure dua}
procedure tiga;
begin {awal procedure tiga}
    writeln('procedure tiga ada di procedure satu');
end; {akhir procedure tiga}
    begin {awal procedure satu}
    writeln(' procedure satu');
    dua; {memanggil procedure dua}
    tiga; {memanggil procedure tiga}
    end; {akhir procedure satu}
{modul utama}
begin
    clrscr;
    writeln(' modul utama');
    satu; {memanggil procedure satu}
    readln;
end.