Помогите,пожалуйста, написать программу по теме "Ветвление в алгоритмах" для Pascal. Задача: определить существует ли треугольник со сторонамиABC и, если существует, то какой он (равнобедренный, равносторонний, произвольный).
(*Pascal ABC.Net*) program triangle; var a,b,c: integer; begin write('Введите стороны:'); readln(a,b,c); if (a=b) and (a=c) then write('Треугольник равносторонний') else if (a=b) or (b=c) or (a=c) then write('Треугольник равнобедренный') else write('Треугольник произвольный'); end.
