********************************************
* NAMA : KASMO ADIYANTO			   *
* EMAIL: kasmoadiyanto@gmail.com	   *
*	 kasmoadiyanto@yahoo.co.id	   *
*	 momo_ch410@yahoo.com		   *
* Blog : http:\\adiyantokasmo.blogspot.com *
********************************************


Program Menghitung_Luas;
(*-------------------------*)
(* Program Menghitung Luas *)
(*        Lingkaran        *)
(*-------------------------*)

Uses CRT;
const
  Phi = 3.14;
Var
  Diameter : Integer;
  Radius, Luas : Real;
Begin
  CLRSCR;
  Writeln ('Menghitung Luas Lingkaran');
  Write ('Masukan Diameter :'); Readln (Diameter);
Write;
  Radius :=(diameter/2);
  Luas   :=(Phi * Radius * Radius);
  Writeln ('Luasnya Adalah :',Luas:6:2);
Readln;
End.