Даны стороны треугольника. Определить его вид: равносторонний, равнобедренный или разносторонний - и вывести сообщение об этом. И кроме того, если треугольник равносторонний, то найти его высоту, если он равнобедренный, то найти его полупериметр, а в противном случае найти его наибольшую сторону.

var a,b,c:real;beginreadln(a,b,c);if (a = b) and (b = c) then beginwriteln ('Треугольник равносторонний');writeln('Его высота = ',(sqrt(3) * a)/2:0:3) end else if (a = b) or (b = c) or (c = a) then beginwriteln('Треугольник равнобедренный');writeln('Его полупериметр = ',(a+b+c)/2); end else begin writeln('Треугольник разносторонний');if (a>b) and (a>c) then writeln('Большая сторона = ',a) elseif (b>a) and (b>c) then writeln('Большая сторона = ',b) elsewriteln('Большая сторона = ',c); end;end.