********************************************
* 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  *)
(*         Segitiga         *)
(*--------------------------*)

Uses CRT;
Var
  Alas   : Integer;
  Tinggi : Integer;
  Luas   : Real;
Begin
  CLRSCR;
  Writeln ('Menghitung Luas Segitiga');
  Write ('Masukan Alas :'); Readln(Alas);
  Write ('Masukan Tinggi :'); Readln(Tinggi);
Write;
  Luas := (Alas * Tinggi/2);
  Writeln ('Luas Segitiganya Adalah :',Luas :6:2);
Readln;
End.