rumus menghitung luas segitiga lewat turbo pascal

HALLO semua.....
kita kan pernah tuh ngitung ribet banget nyari luas segitiga...
dari pada susah susah mending langsung aja pake turbo pascal, gax lama kok..
nih ku kasih tau rumusnya :


Program Luas_Segitiga;

Uses CRT;

Var

Alas,Tinggi:Integer;

Luas:Real;


SL:Char;


BEGIN

ClrScr;

WriteLn('Program Mencari Luas Segitiga');

WriteLn;


Write('Masukkan Alas ? ');ReadLn(Alas);

Write('Masukkan Tinggi ? ');ReadLn(Tinggi);


Luas:=(Alas*Tinggi)/2;


WriteLn;


WriteLn('Luasnya Adalah ',Luas:15:2);


SL:=ReadKey;

END.