Даны стороны a,b и c. если треугольник равносторонний, то вывести информацию, что он равносторонний. а если равнобедренный, то найти его высоту.язык pascal

program samsdelal;

var

a,b,c: real;

begin

   readln(a);

   readln(b);

   readln(c);

   if (a=b)and(b=c) then writeln('Треугольник равносторонний')

   else  

   if (a=b)and(b<>c) then writeln('Высота равна: ', sqrt(b*b-0.25*c*c));

   if (c=b)and(b<>a) then writeln('Высота равна: ', sqrt(b*b-0.25*a*a));

   if (a=c)and(c<>b) then writeln('Высота равна: ', sqrt(a*a-0.25*b*b));

end.

Объяснение: