РЕБЯТ ПОЖАЛУЙСТА ОЧЕНЬ НАДО! ВЗАМЕН МОГУ РЕШИТЬ ВАШУ ЗАДАЧУ! С клавиатуры вводятся стороны треугольника а, b, c. написать программу , которая в зависимости от введённых сторон определяет какой треугольник ( равносторонний , разносторонний или равнобедренный ). Можно пожалуйста в Паскале))Заранее спасибочи)))

program abc;uses crt;var a,b,c:real;beginwriteln('Введите первую сторону: ');readln(a);writeln('Введите вторую сторону: ');readln(b);writeln('Введите третью сторону: ');readln(c);if (a=b) and (b=c) thenwriteln('Ваш Треугольник Равносторонний')elseif (a=b) or (a=c) or (b=c) thenwriteln('Ваш Треугольник Равнобедренный')elseif (a+b<c) or (a+c<b) or (b+c<a) thenwriteln('Ваш Труегольник Не существует')else writeln('Ваш Треугольник Разносторонний');end.