Составить метод для нахождения площади треугольника

program zz1;
var a,b,c,S,p,d:real; //задаем переменные не целого типа
begin
write(введите первую сторону треугольника );
read(a);
write(введите вторую сторону треугольника );
read(b);
write(введите третью сторону треугольника );
read(c);
d:=(a+b+c)/2; //находим полу периметр треугольника
if (a+bgt;c)or(a+cgt;b)or(c+bgt;a) //проверяем на существование треугольника, если существует, то вычисляем площадь
then begin s:=sqrt(d*(d-a)*(d-b)*(d-c));write(площадь треугольника = ,s:5:2);end
else write(треугольник не существует );
end.