{ project5.lpr
  Автор: <Фамилия И.О.>, группа <группа>
  Дата: <дата, чч/мм/гг>
  Учебная программа.    }

Program Project5;

procedure Triangle(A, B, C: Real; var Area: Real; var Right: Boolean);
  { Вычисление площади треугольника со сторонами A, B, C.
    Возвращает:
    Area  - площадь;
    Right - истина, если треугольник прямоугольный, иначе ложь. }
var
  p: Real;
begin
  Right := (Sqr(A)=Sqr(B)+Sqr(C)) or (Sqr(B)=Sqr(A)+Sqr(C))
       or (Sqr(C)=Sqr(A)+Sqr(B));
  p := (A+B+C)/2;
  Area := Sqrt(p*(p-A)*(p-B)*(p-C));
end;

var
  A, B, C, S: Real;
  R: Boolean;

begin
  Write('Введите длины сторон треугольника =>_');
  ReadLn(A, B, C);
  Triangle(A, B, C, R, S);
  WriteLn('Площадь треугольника равна ', S);
  if R then
    WriteLn('Треугольник прямоугольный.')
  else
    WriteLn('Треугольник не прямоугольный.');
  ReadLn;
end.