Даны стороны треугольника, определить его вид(равнобедренный, равносторонний, обычный) Помогите сделать программу в Paskal abc!!! ПОЖАЛУЙСТА!!! СРОЧНА!!!!

Vara,b,c:real;Beginread(a,b,c);if(a=b)and(b=c)then writeln('равносторонний');if((a=b)or(b=c)or(c=a))and((a<>b)or(a<>c)or(b<>c))then writeln('равнобедренный');if(a<>b)and(b<>c)and(c<>a)then writeln('простой');end.