Написать программу для вычисления площади треугольника по трём его сторонам​

program n_1;

var a,b,c,S:real;

begin

 writeln('Введите длины сторон : a, b, c');

 readln(a,b,c);

S:=(a+b+c)/2;

 writeln('Площадь равна = ', sqrt(p*(p-a)*(p-b)*(p-c)));

end.