Program Luas Segitiga

Program LuasSegitiga;
uses wincrt;
var
a,t,L:real;
begin
write('panjang alas segitiga = ');
readln (a);
write('tinggi segitiga = ');
readln (t);
L:=1/2*a*t;
writeln('Luas Segitiga = ',L:6:2);
end.