Известны длины сторон треугольника a,b,c. Напишите программу вычисления его площади по формуле Герона. Написать программу в Паскаль

Предыдущий
вопрос Следующий
вопрос

Program Squere;

uses CRT;

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

begin

 ClrScr;

 Write('Ввыедите a: ');Readln(a);

 Write('Ввыедите b: ');Readln(b);

 Write('Ввыедите c: ');Readln(c);

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

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

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

 Readln;

end.