Beberapa Program Menggunakan Subrutin (PASCAL)

Menghitung Luas Segitiga menggunakan procedure

 Output :

Memangkatkan suatu bilangan

Subrutin dengan pengulangan

Output :

Jika diinput ya maka akan kembali ke menu utama (output1)