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

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