---

var
  a, b, c: real;
  p, s: real;
  x, y, z: real;
begin
  writeln('Введите три числа:');
  readln(a, b, c);
  if (a = b) or (b = c) or (a = c) then
  begin
    if (a + b > c) and (a + c > b) and (b + c > a) then
    begin
      if (a*a + b*b > c*c) and (a*a + c*c > b*b) and (b*b + c*c > a*a) then
      begin
        p := (a + b + c) / 2;
        s := sqrt(p * (p - a) * (p - b) * (p - c));
        x := a; y := b; z := c;
        if x > y then begin p := x; x := y; y := p; end;
        if y > z then begin p := y; y := z; z := p; end;
        if x > y then begin p := x; x := y; y := p; end;
        writeln('Результат:');
        writeln(x:0:2, ' ', y:0:2, ' ', z:0:2, ' ', s:0:2);
      end
      else
        writeln('Не остроугольный');
    end;
  end
  else
    writeln('Не равнобедренный');
end.