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

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

program Keliling_SegiEmpat;
{program menghitung keliling segiempat menggunakan function}

uses
  WinCrt;

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

     Function HitungKelilingSegiEmpat (p,l:real):real ;
     {mengembalikan keliling segi-4 (2P + 2L)}
     {deklarasi}
        {tidak ada}

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

{Program Utama}
  {deskripsi :}
Begin
  write('Panjang = ');readln(panjang);
  write('Lebar   = ');readln(lebar);

  write('Keliling Segi-4 : ',HitungKelilingSegiEmpat(panjang, lebar):10:2);
end.