Напишите задачу в Паскале Треугольник задан длинами сторон.Если такой треугольник существует, то сообщить какой он: Равносторонний, равнобедренный или разносторонний

var a,b,c : real; begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); if (a+b<=c)or(a+c<=b)or(b+c<=a)  then writeln('Треугольника не существует')  else if (a<>b)and(b<>c)and(a<>c)         then writeln('Треугольник разносторонний')         else if (a<>b)or(b<>c) then writeln('Треугольник равнобедренный')                                else writeln('Треугольник равносторонний'); end. Пример: a=3 b=4 c=6 Треугольник разносторонний