Написать программу найти площадь треугольника если известны его стороны формула

Uses crt; var a,b,c:integer; s,p:float; begin  readln(a);  readln(b);  readln(c);  p:=(a+b+c)/2;  s:=sqrt(p*(p-a)*(p-b)*(p-c));  writeln(s); end;