Составить программу, которая определяет, является ли треугольник равносторонним.

Ну, если вводятся длины сторон, то можно так:
//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.