найти площадь прямоугольного треугольника авс, заданного координатами вершин. длину стороны определять с помощью функции решить на паскале

program triangle;var Ax,Ay,Bx,By,Cx,Cy,AB,BC,CA:real;function findlong(x1, y1, x2, y2:real):real;var x,y,z:real;beginfindlong:=sqrt(abs(sqr(x2-x1)+sqr(y2-y1)));end;beginwriteln('Введите координаты вершины А');readln(Ax,Ay); {ввод через пробел}writeln('Введите координаты вершины B');readln(Bx,By);writeln('Введите координаты вершины C');readln(Cx,Cy);AB:=findlong(Ax,Ay,Bx,By);BC:=findlong(Bx,By,Cx,Cy);CA:=findlong(Cx,Cy,Ax,Ay);writeln('AB=',AB,' BC=',BC,' CA=',CA);end.Если остались непонятки или нужно более подробное объяснение, то пишите в комментарии, а лучше в лс (vkcom/ilyahard)