Вопрос по информатике:

Даны 3 стороны треугольника АВС-напечатать какой имеет вид треугольник.
Проверьте где у меня ошибки:

var
a,b,c:integer;
begin
write('введите a=');readln(a)
write('введите b=');readln(b)
write('введите c=');readln(c)
if(a=b)and(b=c)then
writeln('равносторонний')
else
if (a=b)or(b=c)or(a=c)then
writeln('равнобедренный')
else
writeln('разносторонний')
end.