Menghitung Luas Segitiga (Bahasa Pascal)

Program Menghitung_Luas_Segitiga;

{I.S. : diberikan harga ke dalam var. alas dan tinggi bertipe integer}
{F.S. : menampilkan hasil luas segitiga dalam meter persegi}
uses crt;
var
   alas, tinggi  : integer;
   luas_segitiga : real;
begin
   writeln('    Menghitung Luas Segitiga');
   writeln('================================');
   write('Alas Segitiga   = ');readln(alas);
   write('Tinggi Segitiga = ');readln(tinggi);
   luas_segitiga := (0.5 * alas * tinggi) / 10000;
   clrscr;
   writeln(' Hasil Prhitungan Luas Segitiga');
   writeln('================================');
   writeln('| Alas Segitiga   =       ',alas,' cm |');
   writeln('| Tinggi Segitiga =       ',tinggi,' cm |');
   writeln('| Luas Segitiga   = ',luas_segitiga:0:5,' m2 |');
   writeln('================================');
   readln;
end.