(*----------------------------------
Program   :  hit-sg4.pas

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

program Keliling_SegiEmpat;
{program menghitung keliling segiempat menggunakan prosedur}

uses
  WinCrt;

{deklarasi}
var
  panjang, lebar : real;
  K              : real;

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

     {deskripsi :}
     Begin
       K := (p + l) * 2;
     End;

{Program Utama}
  {deskripsi :}
Begin
  write('Panjang = ');readln(panjang);
  write('Lebar   = ');readln(lebar);
  HitungKelilingSegiEmpat(panjang, lebar); {panjang dan lebar : parameter aktual}

  write('Keliling Segi-4 = ',K:10:2);
end.