Найти четвертую вершину и длины диагоналей параллелограмма - QBasic

Формулировка задачи:

Даны три последовательные вершины параллелограмма А( a1...an) B (b1...bn) C (c1...cn) . Найти его четвертую вершину D (d1...dn) и длины его диагоналей. Указание: Находите координаты точки пересечения диагоналей E (e1...en), где E = (a(i)+c(i) ) / 2

CLS
INPUT "vvedite N"; N
FOR i = 1 TO n
INPUT "vvedite A" ; A (I)
INPUT "vvedite B" ; B (I)
INPUT "vvedite C" ; C (I)
FOR i - 1 TO n
NEXT i

правильно? и что делать дальше? Искал похожие задачи по всему подфоруму и вообще гуглил по рунету, но встречаются только задачи, где параллелограмм нужно нарисовать...

Решение задачи: «Найти четвертую вершину и длины диагоналей параллелограмма»

Листинг программы

CLS
 
INPUT "Xa, Ya = "; xa, ya
INPUT "Xb, Yb = "; xb, yb
INPUT "Xc, Yc = "; xc, yc
PRINT
 
xd = xa + xc - xb
yd = ya + yc - yb
 
d1 = SQR((xb - xd) ^ 2 + (yb - yd) ^ 2)
d2 = SQR((xa - xc) ^ 2 + (ya - yc) ^ 2)
 
PRINT "Xd ="; xd; "   Yd ="; yd
PRINT
PRINT "Diagonal_1 ="; d1
PRINT "Diagonal_2 ="; d2
END

Объяснение кода листинга программы

В этом коде выполняются следующие действия:

Ввод данных: На экран выводятся запросы на ввод координат вершин параллелограмма. Первая пара вершин (вершина a и вершина c) вводятся с помощью команды INPUT Xa, Ya =; xa, ya. Вторая пара вершин (вершина b и вершина d) вводится с помощью команды INPUT Xb, Yb =; xb, yb. Третья пара вершин (вершина c и вершина d) вводится с помощью команды INPUT Xc, Yc =; xc, yc.
Вычисления: Вычисляется длина первой диагонали параллелограмма по формуле d1 = SQR((xb - xd) ^ 2 + (yb - yd) ^ 2). Вычисляется длина второй диагонали параллелограмма по формуле d2 = SQR((xa - xc) ^ 2 + (ya - yc) ^ 2).
Вывод результатов: На экран выводятся координаты вершины d и значения длин диагоналей параллелограмма с помощью команд PRINT Xd =; xd; Yd =; yd, PRINT Diagonal_1 =; d1 и PRINT Diagonal_2 =; d2.