Даны стороны треугольника, определить его вид(равнобедренный, равносторонний, обычный) Paskal ABC

Vara,b,c:real;beginwriteln('введите a,b,c');readln(a,b,c);if (a>0) and (b>0) and (c>0) then beginif (a=c) and (b=c) and (a=b) thenwriteln('равносторонний');If (a=b) and (b<>c) thenwriteln('равнобедренный');If (b=c) and (b<>a) thenwriteln('равнобедренный');If (c=b) and (c<>a) thenwriteln('равнобедренный');if (a<>b) and (c<>b) and (a<>c) thenwriteln('произвольный');end;if (a<0) or (b<0) or (c<0) then writeln('такого треугольника нет');end.

Программа большая,но правильная