program luas segitiga

program luas_segitiga;
uses crt;
var
alas:integer;
tinggi:integer;
luas:real;
begin
clrscr;
write('masukan alas =');
readln(alas);
write('masukan tinggi =');
readln (tinggi);
writeln;
luas:=(alas * tinggi )/2;
writeln ('luas segitiga =',luas,0:2);
readln;
end.