Program Luas SegiTiga - Turbo Pascal

Kali ini saya posting coding program luas segitiga.
Bagi sobat yang pengen ngitung luas segitiga, dengan program ini sobat dengan cepat dan mudah mengetahui luas segitiga.
Langsung aja sobat silahkan copas source berikut:

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.

Nah itu dia sourcenya, bagi sobat yang ingin menambahkan variasi lain, silahkansobat berkreativitas sendiri ok.