gistfile1.txt

program_belajar_procedure
var
  A : Integer;

// ----------------------------------------------------
Procedure Tampilkan(output A : Integer) 
Kamus :
    {tidak ada}
Algoritma :
    Output(A) // menampilkan nilai A, dimana nilai A sudah didefenisikan sebelum procedure dipanggil.
    A ← 999 // mengubah nilai variabel A global didalam procedure
EndProcedure
// ----------------------------------------------------

{algoritma utama}
algoritma:
    A ← 1000
    Tampilkan(A)
    Output(A) // 999