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.
