которая определяет вид треугольника по длинам его сторон (если данные длины позволяют построить треугольник) Чтобы например при вводе чисел 2,3,4 получался вывод, что это прямоугольный треугольник
Я же вам уже писал.
если (а*а + б*б = с*с) или (а*а = б*б + с*с) тогда прямоугольный.
если (а=б) или (б=с) тогда равнобедренный
если а=б=с тогда равносторонний.
Ну и дальше по нужным типам
Вам уже отвечали и очень правильно.
если тупо написать за Вас пишите в личку.
но 2. 3. 4 не прямоугольный....
Ты что, ответы тебе не читаешь?
http://otvet.mail.ru/question/86039212
что-то типа :
Program VidTreug;
var a,b,c:real;
begin
readln(a);
readln(b);
readln(c);
if (a*a+b*b=c*c) OR (a*a+c*c=b*b) OR (c*c+b*b=a*a) then Writeln('Pryamougolnyy');
if (a=b) or (b=c) then Writeln('ravnobedrennyi');
if (a=b) and (b=c) then Writeln('ravnostoronyi');
readln;
End.
лет 7 уже не баловался на паскале, может пойдёт 
⇢