Rumus SEGItiga

program penjumlahan;
uses wincrt;
var a,b,c:real;
begin
write('angka pertama ; '); readln(a);
write('angka kedua ; '); readln(b);
c:=(a*b)/2;
writeln('luas segitiga ; ',C:0:2);
readln;
donewincrt;
end.