Даны 4 точки A1(x1,y1), A2(x2,y2), A3(x3,y3), A4(x4,y4). Определить, будут ли они вершинами параллелограмма. Нужно решить на Pascal, но без использования мудренных команда.

var     x1, x2, x3, x4, y1, y2, y3, y4: real; function VectorLength(x1, y1, x2, y2: real): real; begin     VectorLength := sqrt(sqr(x1 - x2) + sqr(y1 - y2)); end; function VectorSlope(x1, y1, x2, y2: real): real; begin     VectorSlope := (y1 - y2) / (x1 - x2); end; begin     readln(x1, y1);     readln(x2, y2);     readln(x3, y3);     readln(x4, y4);          if (VectorLength(x1, y1, x2, y2) = VectorLength(x4, y4, x3, y3))     and (VectorSlope(x1, y1, x2, y2) = VectorSlope(x4, y4, x3, y3)) then         writeln('Yes')     else writeln('No'); end.