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

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.