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

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