Написать программу, классифицирующую треугольники (равнобедренные, равносторонние, разносторонние), если даны стороны.

var a, b, c: real;

begin

write ('Введите стороны>> ') ;

read (a) ;

read (b) ;

readln (c) ;

if (a = b) and (b = c) then

write ('Треугольник равносторонний')

else if (a = b) or (b = c) or (a = c) then

write ('Треугольник равнобедренный')

else write ('Треугольник разносторонний') ;

end.