1)Найти два меньших числа из трех.
2)Определить , является ли треугольник со сторонами a,b,c
а) равносторонним
б) равнобедренным
в) разносторонним

пишешь не плохо) только, вместо еще одного условия (разносторонний), что бы не создавать лишнюю нагрузку, хоть и мелкую, но все же.... через else же проще сделать....

var a,b,c: real;beginwrite('Введите значения a,b,c(основание): '); readln(a,b,c);if((a=b) and (a=c) and (b=c)) then writeln('Треугольник,очевидно, равносторонний')else if((a=b) or (a=c) or (c=b)) then writeln('Треугльник равнобедренный') else writeln('Треугольник разносторонний');end.

вот так я сделал

Условие b=c в первом if совершенно не обязательно, ведь a=c and a=b автамотически подразумевает условие b=c.

а через else, вы правы, делать проше, хоть и не на много, максимум текст программы сокрашается, и время исполнения на сотые доли секунды меньше становится, хотя и при моём решении ответ выдаёт сразу.

var a,b,c:integer;beginwriteln('введите три числа');readln(a,b,c);if ((a<b) and (a<c)) and (b<c) then writeln ('меньшие ', a,'и',b) ;if ((a<b) and (a<c)) and (c<b) then writeln ('меньшие ', a,'и',c) ;if ((c<a) and (c<b)) and (a<b) then writeln ('меньшие ', c,'и',a) ;if ((c<b) and (c<a)) and (b<a) then writeln ('меньшие ', c,'и',b) ;end.