Даны 3 точки определить треугольник.

[soldm]

А вот окончательный вариант проверьте плиз скажите правильно написано?

[puporev]

В принципе правильно, немного поправил равнобедренный.

Извини, поторопился, немного неправильно написал, поправью

if ((a=b)and(a<>c))or((b=c)and(b<>a))or((a=c)and(a<>b)) then
       WriteLn('Треугольник равнобедренный');

[soldm]

Cпасибо
удачи

[Sibedir]

Все правильно. Я конечно с ур-ем ошибся. Через ур-е проще определить, получился треугольник или нет. Но вот сказать какой он - уже сложно. Но только у меня в некоторых случаях не получилось добится от программы надписи 'Треугольник равносторонний', когда a=b=c (я их специально на экран выводил). Это из-за специфики вещественных типов. Бывает что при отображении с любой точностью два числа вроде как равны, ан нет. На вычисления с веществеными числами никогда нельзя положится на 100%. Так что при сравнении чисел нужно допускать некоторую погрешность.
И еще

if ((a=b)and(a<>c))or((b=c)and(b<>a))or((a=c)and(a<>b)) then
       WriteLn('Треугольник равнобедренный');

Это совсем не обязательно. Посмотрите мой вариант.

[puporev]

Это совсем не обязательно. Посмотрите мой вариант.

Полностью согласен, совсем забыл про погрешность.