Найти сумму длин диагоналей параллелограмма - Free Pascal

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

найдите сумму длин диагоналей параллелограмма abcd и madt каждый из которых задан координат его вершин (можно использовать циклы и Процедуру и оператор if)

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

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

type point=record
           x,y:real;
           end;
function dlina(a,b:point):real;
begin
dlina:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));
end;
procedure dl_diag(var a,b,c,d:point;var d1,d2:real;s:string);
var o:point;
begin
writeln('Параллелограмм ',s);
writeln('Введите координаты двух противоположных вершин параллелограмма');
readln(a.x,a.y,c.x,c.y);
writeln('Введите координаты третьей вершины');
readln(b.x,b.y);
o.x:=(a.x+c.x)/2;
o.y:=(a.y+c.y)/2;
d.x:=2*o.x-b.x; //четвертая вершина
d.y:=2*o.y-b.y;
d1:=dlina(a,c);
d2:=dlina(b,d);
//writeln('D: x=',d.x:0:2,' y=',d.y:0:2); //для проверки
writeln('D1=',d1:0:2,' D2=',d2:0:2);
end;
var a,b,c,d,m,h,p,t:point;
    d1,d2:real;
begin
dl_diag(a,b,c,d,d1,d2,'ABCD');
dl_diag(a,b,c,d,d1,d2,'MHPT');
end.

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

В этом коде используется язык программирования Free Pascal. Код выполняет две задачи:

Находит длины диагоналей параллелограмма с четырьмя известными вершинами. Для этого вводится координаты двух противоположных вершин параллелограмма, затем координаты третьей вершины. После этого программа вычисляет координаты четвертой вершины параллелограмма и затем находит длины диагоналей параллелограмма, выводя их на экран.
Запрашивает у пользователя ввести координаты вершин параллелограмма, затем находит длины его диагоналей и выводит их на экран. Вот список действий, которые выполняет код:
Объявляет тип данных point для представления точки в пространстве с координатами (x,y).
Определяет функцию dlina, которая вычисляет длину отрезка между двумя точками в пространстве, используя теорему Пифагора.
Определяет процедуру dl_diag, которая запрашивает у пользователя координаты вершин параллелограмма, вычисляет длины его диагоналей и выводит их на экран.
Создает переменные a, b, c, d, m, h, p, t типа point для представления вершин параллелограмма.
Создает переменные d1 и d2 для хранения длин диагоналей параллелограмма.
Вызывает процедуру dl_diag для параллелограмма с четырьмя известными вершинами, выводя на экран длины его диагоналей.
Вызывает процедуру dl_diag для параллелограмма, заданного пользователем, выводя на экран длины его диагоналей.