Menghitung Luas Segitiga ( Pascal )

Menghitung Luas Segitiga ( Pascal )

program latihan2;

uses wincrt;
var
alas,tinggi:integer;
luas : real;
begin
read(alas); read(tinggi);
luas:=0.5*alas*tinggi;
write('luas segitiga adalah =',luas:7:3 );

end.