Даны четыре точки 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.