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

var S,p,a,b,c: real;  

begin

 writeln('Введите a');

 readln(a);

 writeln('Введите b');

 readln(b);

 writeln('Введите c');

 readln(c);

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

 S:=sqrt(p*(p-a)*(p-b)*(p-c));

 writeln('Площадь равна ',S);

end.