С помощью процедуры найти периметр треугольника, если даны координаты вершин - Turbo Pascal

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

Описать процедуру Leng(xA, yA, xB, yB) вещественного типа, находящую длину отрезка AB на плоскости по координатам его концов (xA, yA, xB, yB — вещественные параметры). С помощью этой процедуры найти периметр треугольника, если даны координаты вершин A, B, C. Помогите пожалуйста

Решение задачи: «С помощью процедуры найти периметр треугольника, если даны координаты вершин»

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

function leng(xa,ya,xb,yb:real):real;begin;leng:=sqrt(sqr(xb-xa)+sqr(yb-ya));end;
var xa,ya,xb,yb,a,b,c,p,xc,yc:real;
begin
writeln('xa= ');read(xa);
writeln('ya= ');read(ya);
writeln('xb= ');read(xb);
writeln('yb= ');read(yb);
writeln('xc= ');read(xc);
writeln('yc= ');read(yc);
a:=leng(xc,yc,xb,yb);
b:=leng(xa,ya,xc,yc);
c:=leng(xa,ya,xb,yb);
p:=a+b+c;
writeln('P= ',p);
writeln('leng a= ',a);
writeln('leng b= ',b);
writeln('leng c= ',b);
readln;readln;end.

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

В функции leng вычисляется длина отрезка между двумя точками с помощью формулы sqrt(sqr(xb-xa)+sqr(yb-ya)). Здесь a, b, c - координаты вершин треугольника, а xa, ya, xb, yb - координаты точек, которые мы читаем из ввода.
Переменные a, b, c и p инициализируются значениями функции leng.
Затем мы выводим значения переменных a, b, c и p.
В конце программы мы считываем значения координат xa, ya, xb и yb и вычисляем длины отрезков a, b и c с помощью функции leng.
Затем мы выводим длины отрезков a, b и c.