Luas Segitiga pada Pascal

uses crt;
var
alas : integer;
tinggi : integer;
luas : real;
begin
clrscr;
writeln <'Perhitungan Luas Segitiga'>;
writeln <'*************************'>;
write <'alas:'>; readln ;
write <'tinggi:'>;readln ;
luas:=alas*tinggi*0.5;
writeln <'hasil :'>; write<'Luas Segitiga',luas>;
readln;
end.