hitung luas segitiga dalam pascal.

program lat1;
uses wincrt;

function luas_segitiga(a,b,c:integer):real;
var s,L:real;
begin
s:=(a+b+c)/2;
L:=sqrt(s*((s-a)+(s-b)+(s-c)));
luas_segitiga:=L;
end;

var a,b,c:integer;
    hasil:real;
begin
write('Masukan sisi A = ');readln(a);
write('Masukan sisi B = ');readln(b);
write('Masukan sisi C = ');readln(c);
writeln;
hasil:=luas_segitiga(a,b,c);
writeln(hasil:0:2);
end.