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

var a,b,c,s,p : real;beginWriteln('A=');Readln(a);Writeln('B=');Readln(b);Writeln('C=');Readln(c);p:=(a+b+c)/2;s:=sqrt(abs(p*(p-a)*(p-b)*(p-c))); // формула ГеронаWriteln('S=',s:3:2);Readln;end.