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

var a,b,c:real;beginwriteln ('Введите стороны треугольника');read (a,b,c);if ((a + b) > c) and ((a + c) > b) and ((b + c) > a) thenbeginif (a=b) or (a=c) or (b=c) then writeln ('Равнобедренный') else writeln ('Не равнобедренный');endelse writeln ('Такого треугольника не существует');end.