Даны 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.