Написать программу,классифицирующую

var a, b, c: real;

begin

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

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.