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

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