Procedure Pascal

Prosedur diawali dengan kata cadangan Procedure di dalam bagian deklarasi prosedur. Prosedur dipanggil dan digunakan di dalam blok program yang lainnya dengan menyebutkan judul prosedurnya.
Prosedur banyak digunakan pada program yang terstruktur, karena :

1. Merupakan penerapan konsep program modular, yaitu memecah-mecah program yang rumit menjadi program-program bagian yang lebih sederhana dalam bentuk prosedur-prosedur.
2. Untuk hal-hal yang sering dilakukan berulang-ulang, cukup dituliskan sekali saja dalam prosedur dan dapat dipanggil atau dipergunakan sewaktu-waktu bila diperlukan.

Sebagaimana halnya sebuah program, suatu procedure juga memiliki header dan block. Perbedaan bentuknya dengan program hanyalah pada bagian header-nya saja.
Bentuk Umum header suatu procedure adalah :

            PROCEDURE nama;
Atau
            PROCEDUREnama (formal parameter : jenis);



Contoh Program 

1. program prak1unisla;
2. uses wincrt;
3. var
4. kol,bar,has1,has2:integer;
5. procedure tabel;
6. begin
7. has1:=kol+bar;
8. has2:=kol*bar;
9. writeln(' Kolom + Baris = ',has1);
10. writeln(' Kolom * Baris = ',has2);
11. end;
12. begin
13. gotoxy(21,1);writeln('------------------------------------');
14. gotoxy(21,2);writeln('>> Program Pertama Praktek Unisla <<');
15. gotoxy(21,3);writeln('-  ------------------------------  -');
16. gotoxy(21,4);writeln('------------------------------------');
17. writeln;
18. write('Masukkan Jumlah Kolom : ');readln(kol);
19. write('Masukkan Jumlah Baris : ');readln(bar);
20. writeln;
21. tabel;
22. end.