Di dalam pascal diperkenankan procedure memanggil procedure yang lain seperti contoh berikut :
program procedure_memanggil_procedure_yang_lain;
uses crt;
procedure satu(a1: integer);
begin
writeln(' nilai a =',a1:2,' ada diprocedure satu');
end;
procedure dua(a2: integer);
begin
writeln(' nilai a =',a2:2,' ada diprocedure dua');
satu(a2);
end;
procedure tiga(a3: integer);
begin
writeln(' nilai a =',a3:2,' ada diprocedure tiga');
dua(a3);
end;
procedure empat(a4: integer);
begin
writeln(' nilai a =',a4:2,' ada diprocedure empat');
tiga(a4)
end;
{modul Utama}
var
a : integer;
begin
clrscr;
write('nilai a=');readln(a);
empat(a);
readln;
end.
