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

По трем сторонам - формула Герона.
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 знаками после запятой.