Ну, если вводятся длины сторон, то можно так:
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
var a:=ReadReal('Введите А');
var b:=ReadReal('Введите В');
var c:=ReadReal('Введите С');
if (a=b) and (b=c) then println('Равносторонний')
else println('Нет');
end.