Program menentukan luas segitiga

Program Luas_segitiga;
Var a, t, Luas : real;
begin
read (a, t);
Luas := (a*t)/2;
writeln ("alas:", a);
writeln ("tinggi:", t);
writeln ("Luas Segitiga:", Luas);
end.

output:
alas:6
tinggi:2
Luas Segitiga:6