Как определить является ли треугольник правильным или равнобедренным? Написать программу на Паскале.

Для решения задачи требуется лишь сравнить стороны треугольника. Если все стороны будут равны - значит треугольник правильный. Если будут равны между собой только две стороны - треугольник равнобедренный.

program kv_ur;
uses
crt;
var
a,b,c: real;
begin
clrscr;
writeln('Input 3 sides: ');
readln(a,b,c);
if (a=b) or (b=c) or (a=c) then
begin
if (a=b) and (a=c) then
writeln('equilateral triangle')
else
writeln('isosceles triangle');
end
else
writeln('any triangle');
readkey;
end.