Составить программу вычисление площади треугольника по трём сторонам. S=1\2aha

По трем сторонам - формула Герона. var a,b,c,p:real; begin write('Введите стороны: '); readln(a,b,c); p := (a + b + c) / 2; writeln('Площадь равна ', sqrt(p * (p - a) * (p - b) * (p - c)):9:4); end. А через основание и высоту (твоя формула): var a,h:real; begin write('Введите длину основания и высоты, проведенной к нему: '); readln(a, h); writeln('Площадь равна: ', (a * h) / 2:9:4); :9:4 -- это такой оператор, который выводит число в формате с фиксированной точкой и 4 знаками после запятой.