Известны длины сторон нескольких треугольников. Для каждого из них определить его вид: прямоугольный, тупоугольный или остроугольный. признак окончания ввода - три нуля. напишите программу пожалуйста , паскаль

Алгоритм : 1) к примеру у тебя АВ и ВС это катеты, АС это гипотенуза , на Паскале берешь и заносишь длины каждого катета в отдельные переменные , также заносишь в перемен длину гипотенузы и далее делаешь проверку (к примеру длина первого катета равна переменной a, длина второго катета равна переменной b и длина гипотенузы равна переменной c ) проверка : если a^2 + b^2 = c^2 то треугольник прямоугольный иначе он не прямоугольный !