Ответ:

program ST_4;

var a,b,c,h:integer;

p:real;

S:real;

begin

write('Введите основание: ');

readln(a);

write('Введите высоту: ');

readln(h);

 S := (a*h)/2;

writeln ('Площадь треугольника: = ',S);

 write('Длины сторон треугольника: ');

 readln(a,b,c);

 p := (a+b+c)/2; // Вспомагательная формула

 S := sqrt(p)*(p - a)*(p - b)*(p - c); // Формула Герона

writeln ('Площадь треугольника по формуле Герона: = ',S);

end.