Запросить стороны треугольника и определить, является ли он разносторонним, равносторонним или равнобедренным. Учесть: третья сторона не должна превышать сумму двух других, иначе треугольник не существует. Задача на тему "Программирование ветвлений на Паскале".

var a, b, c: real;

begin

write ('напишите 3 стороны треугольника (c>a+b) ') ;

read (a, b, c) ;

if (ab) and (ac) and (bc) then write ('разносторонний') ;

if (a=b) and (a=c) and (b=c) then write ('равноносторонний') ;

if (a=b) and (bc) and (ac) then write ('равнобедренный') ;

end.