Program Pascal Mencari Luas Segitiga

Nahhh ini adalah salah satu program pascal untuk Mencari Luas Segitiga

1. Programnya

program LuasSegitiga;
uses crt;
Var
Alas :Integer;
Tinggi:Integer;
Luas :Real;
Begin
clrscr;
Writeln('program mencari luas segitiga');
Write('Input nilai Alas =');readln (Alas);
Write('Input nilai Tinggi =');readln (Tinggi);
Luas :=1/2*Alas*Tinggi;
Writeln('Nilai Luas =',Luas:2:1);
readln;
end.