luas segitiga yang sisinya telah diketahui

procedure TForm1.bthitungClick(Sender: TObject);
var
s: real;
a,b,c: integer;
luas : real;

begin
  a:= strtoint(edit1.Text);
b:= strtoint(edit2.Text);
c:=strtoint(edit3.Text);

s:=(a+b+c)/2;
luas := sqrt(s*(s-a)*(s-b)*(s-c));
edit4.Text:=format('%.2f',[luas]) ;
end;
end.