Найти координаты точек и диагональ прямоугольника - Turbo Pascal

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

нуждаюсь в помощи по задаче: Вершины прямоугольника. На плоскости заданы координаты двух противоположных вершин прямоугольника. Необходимо найти координаты двух остальных его вершин. Вывести на экран и записать в файл "output.txt" координаты всех вершин прямоугольника и значения диагонали.

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

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

LengthDiag := sqrt( sqr(x1-x2) + sqr(y1-y2));

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

Задание: Найти координаты точек и диагональ прямоугольника.
Переменные: x1, y1, x2, y2 - координаты точек прямоугольника.
Вычисляется длина диагонали прямоугольника: LengthDiag := sqrt( sqr(x1-x2) + sqr(y1-y2));