Написать программу в паскаль определяющую можно ли построить прямоугольник по четырем...

Question

Написать программу в паскаль определяющую можно ли построить прямоугольник по четырем заданным отрезкам

Answer 1

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
  var a:=ReadArrReal(4).Sorted.ToArray;
  if (a[0]=a[1]) and (a[2]=a[3]) then Writeln('Можно')
  else Writeln('Нельзя')
end.