Program p3;
var a,b,c:real;
begin
Write('Введите длину первой стороны, а=');
Readln(a);
Write('Введите длину второй стороны, b=');
Readln(b);
Write('Введите длину третьей стороны, c=');
Readln(c);
If (a+b>=c) and (a+c>=b) and (b+c>=a) then
  begin
  Writeln('Треугольник существует');
    If (sqr(a)+sqr(b)=sqr(c)) or (sqr(c)+sqr(b)=sqr(a)) or (sqr(a)+sqr(c)=sqr(b)) then
      writeln('Прямоугольный');
        if (a=b) and (a=c) then Writeln('Равносторонний') else
            if (a=b) or (b=c) or (a=c) then Writeln('Равнобедренный');
  end;
end.