линейные программы по ТЕМЕ 4(2)

program VisotaTreug;
var a,b,c:integer; s,p,h:real;
begin

  Writeln('Чтобы найти высоту треугольника введите его стороны:');
  Readln(a,b,c);
  p := (a + b + c) / 2;
  s := exp( 1/2 * ln( p * (p - a) * (p - b) * (p - c) ) );
  h := 2 * s / c;
  Writeln('Высота данного треугольника = ', h);

end.