Triangel

program Triangel;

function pl_treug(a, b, c :real): real;
var
  p: real;
begin
  p = (a + b + c)/2;
  result = sqrt(p*(q - a)*(p - b)*)p - c));

  pl_treug = result;
end;

var
  x, y, z, res: real;

begin
  WriteLn('Введите три стороны треугольника');
  ReadLn(x, y, z);
  res = pl_treug(x, y, z);
  WriteLn('Результат: ', x, y, z)
end.