Составить алгоритм ,с помощью которого можно определить ,является ли треугольник с заданными сторонами a,b,c равносторонним ,равнобедренным или прямоугольным

var   a, b, c : real; begin   read (a, b, c);   if (a = b) and (b = c) then writeln ('Равносторонний')   else if (a = b) or (a = c) or (b = c) then writeln ('Равнобедренный')   else if (sqr (a) + sqr (b) = sqr (c)) or (sqr (b) + sqr (c) = sqr (a)) or (sqr (a) + sqr (c) = sqr (b))     then writeln ('Прямоугольный')   else writeln ('No'); end.