variant2

program variant2;
    var a,b,c,p,geron: real;
begin
  writeln('Введите : ');
  readln(a);
  writeln('Введите : ');
  readln(b);
  writeln('Введите : ');
  readln(c);

  p:=(a+b+c)/2;

  geron:=sqrt(p*(p-a)*(p-b)*(p-c));

  writeln('Площадь треугольника равна: ', geron);
end.