Даны четыре точки a1(x1,y1), a2(x2,y2), a3(x3,y3), a4(x4,y4). определить, будет ли они вершинами параллелограмма. на паскале,

beginvar x1, x2, x3, x4, y1, y2, y3, y4: double;  writeln('Введите x1');  readln(x1);  writeln('Введите x2');  readln(x2);  writeln('Введите x3');  readln(x3);  writeln('Введите x4');  readln(x4);   writeln('Введите y1');  readln(y1);  writeln('Введите y2');  readln(y2);  writeln('Введите y3');  readln(y3);  writeln('Введите y4');  readln(y4);if((y1-y4=y2-y3) AND (x2-x1=x3-x4)) thenwriteln('ABCD - параллелограмм')else writeln('ABCD - не параллелограмм');end.