(*----------------------------------
Program   :  dua-bil.pas

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

program Keliling_SegiEmpat;
{program menghitung dua bilangan kemudian hasilnya akan
dipangkatkan, semua pemanggilan menggunakan prosedur}

uses
  WinCrt;

{deklarasi}
var
  bil_1, bil_2 : real;
  Temp, Hasil  : real;

     Procedure Tambah (x,y:real); {x dan y : parameter formal}
     {deklarasi}
        {tidak ada}

     {deskripsi :}
     Begin
       Temp := x + y;
     End;

     Procedure Pangkat(x:real); {x : parameter formal}
     {deklarasi}
        {tidak ada}

     {deskripsi :}
     Begin
       Hasil := sqr(x);
       write('Hasil Akhirnya adalah : ',Hasil:10:2);
     End;

{Program Utama}
  {deskripsi :}
Begin

  write('Bilang 1 = ');readln(bil_1);
  write('Bilang 2 = ');readln(bil_2);
                                            
  Tambah (bil_1, bil_2); {bil_1 dan bil_2 : parameter aktual}
  Pangkat (temp); {temp : parameter aktual}
     
end.