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

var a,b,c,p: real;beginwriteln('Определение площади треугольника по теореме Герона');write('Введите стороны треугольника: ');readln(a,b,c);if (a + b <= c) or (b + c <= a) or (a + c <= b) then writeln ('Треугольника с такими сторонами не существует')elsebeginp:=(a+b+c)/2;writeln('Площадь треугольника равна ',sqrt(p*(p-a)*(p-b)*(p-c)):0:3)endend.