Написать программу, определяющую , является ли треугольник ABCравнобедренный

vara,b,c:real;beginread(a,b,c);if (a=b) or (b=c) or (a=c) then writeln('Треугольник равнобедренный');else writeln('Треугольник не равнобедренный');end.