Даны координаты левой верхней и правой нижней вершин квадрата. Найти длину стороны квадрата, найти длину диагонали, найти координаты точки пересечения диагоналей квадрата.

Ответь пожалуйста на вопрос, в моем профиле, очень нужно

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017// Внимание! Если программа не работает, обновите версию!begin  var (x1,y1):=ReadReal2('Координаты 1-й точки:');  var (x2,y2):=ReadReal2('Координаты 2-й точки:');  var a:=Abs(x2-x1); // считаем, что координаты указаны верно  var d:=a*Sqrt(2);  var (xc,yc):=((x2+x1)/2,(y2+y1)/2);  Writeln('Длина стороны ',a,', диагональ ',d);  Writeln('Координаты центра пересечения диагоналей: ',xc,' ',yc)end.ПримерКоординаты 1-й точки: -3 3.5Координаты 2-й точки: 4 -3.5Длина стороны 7, диагональ 9.89949493661167Координаты центра пересечения диагоналей: 0.5 0