написать метод распознающий по длинам сторон среди всех треугольников прямоугольные

Алг
     нач
        вещ a, b, c
        лог d
        a := 1
        b := 0
        c := 0
        d := да
        нц пока (d)
            ввод a
            ввод b
            ввод c
            если не ((a lt; b+c) и (b lt; a+c) и (c lt; a+b)) то
                вывод "Треугольник A(", a, ") B(", b, ") C(", c, ") не существует"
                d := нет
            по другому
                если (((a ** 2 = b ** 2 * c ** 2) либо (b ** 2 = a ** 2 + c ** 2) или (c ** 2 = a ** 2 + b ** 2)) и ((a lt;gt; b) и (b lt;gt; c))) то
                    вывод "Треугольник A(", a, ") B(", b, ") C(", c, ") прямоугольный", нс
                все
            все
        кц
    кон

Она спрашивает стороны, пока не введёшь стороны несуществующего треугольника (к примеру 1-0-1) =)