Расстояние от точки до стороны треугольника

program gl;
uses crt;
 
var i,j:integer; mi,p1,p2,p3,x1,y1,x2,y2,x3,y3,x4,y4,a,b,c,h1,h2,h3,s1,s2,s3,a1,b1,c1:real;
procedure dl;
begin
a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
b:=sqrt(sqr(x3-x2)+sqr(y3-y2));
c:=sqrt(sqr(x1-x3)+sqr(y1-y3));
end;
Procedure  s;
begin
a1:=sqrt(sqr(x4-x1)+sqr(y4-y1));
b1:=sqrt(sqr(x4-x2)+sqr(y4-y2));
c1:=sqrt(sqr(x4-x3)+sqr(y4-y3));
p1:=(a+a1+b1)/2;
p2:=(b+b1+c1)/2;
p3:=(c+c1+a1)/2;
s1:=sqrt(p1*(p1-a)*(p1-b1)*(p1-a1));
s2:=sqrt(p2*(p2-b)*(p2-b1)*(p2-c1));
s3:=sqrt(p3*(p3-c)*(p3-c1)*(p3-a1));
end;
procedure h;
begin
h1:=2*s1/a;
h2:=2*s2/b;
h3:=2*s3/c;
end;
procedure min;
begin
h1:=mi;
if (h2<h1) and (h2<h3) then
h2:=mi;
if (h3<h1) and (h3<h2) then
h3:=mi;
end;
BEGIN
readln(x1,y1,x2,y2,x3,y3,x4,y4);
writeln(mi:6:2);
readln;
 
        
END.

uses crt;
const t=0.00001;{погрешность вычислений при сравнении 2х вещественных чисел}
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;
function Plosh(a,b,c:Point):real;{определение площади треугольника}
var p:real;
begin
p:=(Dlina(a,b)+Dlina(b,c)+Dlina(a,c))/2;
Plosh:=(sqrt(p*(p-Dlina(a,b))*(p-Dlina(b,c))*(p-Dlina(a,c))));
end;
function Proverka(a,b,c,d:Point):boolean;{проверка, попадает ли точка в треугольник}
var s,s1,s2,s3:real;
begin
s:=Plosh(a,b,c);{площадь всего треугольника}
s1:=Plosh(a,b,d);{площади внутренних треугольников}
s2:=Plosh(a,c,d);
s3:=Plosh(b,c,d);
if abs((s1+s2+s3)-s)<t then Proverka:=true{если сумма равна общей, с учетом точности, то внутри}
else Proverka:=false;
end;
function H(a,b,d:Point):real;{вычисление высоты}
begin
H:=2*Plosh(a,b,d)/Dlina(a,b);
end;
function Min(a,b,c:real):real;{вычисление меньшей высоты}
var mn:real;
begin
mn:=a;
if b<mn then mn:=b;
if c<mn then mn:=c;
Min:=mn;
end;
var a,b,c,d:Point;
begin
clrscr;
repeat
writeln('Введите координаты X,Y вершин треугольника:');
write('A:  ');readln(a.x,a.y);
write('B:  ');readln(b.x,b.y);
write('C:  ');readln(c.x,c.y);
if  Plosh(a,b,c)<t then writeln('Это не треугольник! Повторите ввод.');
until Plosh(a,b,c)>t;
repeat
write('Ведите координаты X,Y точки внутри треугольника D:  ');
readln(d.x,d.y);
if not Proverka(a,b,c,d) then writeln('Точка D не лежит внутри треугольника! Повторите ввод.');
until Proverka(a,b,c,d);
write('Расстояние до ближайшей стороны=',Min(H(a,b,d),H(a,c,d),H(b,c,d)):0:2);
readln
end.

program gl;
uses crt;
var i,j:integer;
mi,p1,p2,p3,x1,y1,x2,y2,x3,y3,x4,y4,a,b,c,h1,h2,h3,s1,s2,s3,a1,b1,c1:real;
procedure dl;
begin
a:=sqrt(sqr(x2-x1)+sqr(y2-y1));    {Вычисление сторон основного треугольника}
b:=sqrt(sqr(x3-x2)+sqr(y3-y2));
c:=sqrt(sqr(x1-x3)+sqr(y1-y3));
end;
Procedure  s;
begin
a1:=sqrt(sqr(x4-x1)+sqr(y4-y1));   {Вычисление сторон треугольников образованых 
b1:=sqrt(sqr(x4-x2)+sqr(y4-y2));      вершинами и точкой}
c1:=sqrt(sqr(x4-x3)+sqr(y4-y3));
p1:=(a+a1+b1)/2;                      {нахождение каждого полупериметра}
p2:=(b+b1+c1)/2;
p3:=(c+c1+a1)/2;
s1:=sqrt(p1*(p1-a)*(p1-b1)*(p1-a1));    {нахождение каждой площади}
s2:=sqrt(p2*(p2-b)*(p2-b1)*(p2-c1));
s3:=sqrt(p3*(p3-c)*(p3-c1)*(p3-a1));
end;
procedure h;
begin
h1:=2*s1/a;         {Нахождение каждого растояния до стороны}
h2:=2*s2/b;
h3:=2*s3/c;
end;
procedure min;
begin
mi:=h1;                   {Сравнение высот}
if h2<h1 then
mi:=h2;
if h3<h2 then
mi:=h3;
end;
BEGIN
clrscr;
readln(x1,y1,x2,y2,x3,y3,x4,y4);
dl;s;h;min;
writeln(mi:6:2);
readln;
 
 
END.