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

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.