(*----------------------------------
Program   :  pro-hitung.pas

program ini sebagai contoh dalam penggunaan
prosedur pada pemrograman Pascal

Oleh      : Bimo Awang Yudha
Dibuat tgl: 31 Juli 2004
------------------------------------ *)

program LuasSegitiga;
{program menghitung luas segitiga menggunakan prosedur}

uses
  WinCrt;

{deklarasi}
var
  alas, tinggi : real;
  L            : real;

     Procedure HitungLuasSegitiga (a,t:real); {a dan t : parameter formal}
     {deklarasi}
        {tidak ada}

     {deskripsi :}
     Begin
       L := (a*t)/2;
     End;

{Program Utama}
  {deskripsi :}
Begin
  write('Alas   = ');readln(alas);
  write('Tinggi = ');readln(tinggi);
  HitungLuasSegitiga(alas, tinggi); {alas dan tinggi : parameter aktual}

  write('Luas Segitiga = ',L:10:2);
end.