Составьте программу вычисления площади треугольника по трем сторонам.
А вот как записать незнаю..Только начало могу..
ПОмогите новичку, пожалуйста!

var a,h,s:real;
begin
s:=0.5*a*h;
end.
var a,h,s:real;
begin
s:=0.5*a*h;
end.
S:=sqrt(p*(p-a)(p-b)(p-c));
S:=sqrt(p*(p-a)(p-b)(p-c));
uses crt;
var
a,b,c,p,s: real;
begin
clrscr;
{считываем переменные}
writeln('vvedite storony a');
read(a);
writeln('vvedite storony b');
read(b);
writeln('vvedite storony c');
read(c);
{проверяем можно построить треугольник по введенным сторонам}
if ((a+b)<=c) or ((a+c)<=b) or ((c+b)<=a) then
writeln('Treugolnik s takimi storonami nelza stroit')
else { иначе }
p:=0.5*(a+b+c); {считаем полупериметр}
s:=sqrt(p*(p-a)*(p-b)*(p-c));{ площадь по формуле Герона}
writeln('s= ',s:2:3);{вывод на экран}
readkey;
end.