Запросить стороны треугольника и определить, является ли он разносторонним,…

var a,b,c: real; beginwrite ('напишите 3 стороны треугольника (c>a+b) '); read (a,b,c); if (a<>b) and (a<>c) and (b<>c) then write ('разносторонний'); if (a=b) and (a=c) and (b=c) then write ('равноносторонний'); if (a=b) and (b<>c) and (a<>c) then write ('равнобедренный'); end.