Модули

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

unit treug;
interface
function Dlina(a1,b1,a2,b2:real):real;//длина стороны
function Perim(a1,b1,a2,b2,a3,b3:real):real;//периметр
function Plosh(a1,b1,a2,b2,a3,b3:real):real;//площадь
function Proverka(a1,b1,a2,b2,a3,b3:real):boolean;//проверка существования треугольника
implementation
function Dlina;
begin
Dlina:=sqrt(sqr(a1-a2)+sqr(b1-b2));
end;
 
function Perim;
begin
Perim:=Dlina(a1,b1,a2,b2)+Dlina(a1,b1,a3,b3)+Dlina(a2,b2,a3,b3);
end;
 
function Plosh;
var p:real;
begin
p:=Perim(a1,b1,a2,b2,a3,b3)/2;
Plosh:=sqrt(p*(p-Dlina(a1,b1,a2,b2))*(p-Dlina(a1,b1,a3,b3))*(p-Dlina(a2,b2,a3,b3)));
end;
 
function Proverka;
begin
if (abs(Dlina(a1,b1,a2,b2)-Dlina(a1,b1,a3,b3))<Dlina(a2,b2,a3,b3))
and(Dlina(a1,b1,a2,b2)+Dlina(a1,b1,a3,b3)>Dlina(a2,b2,a3,b3)) then Proverka:=true
else Proverka:=false;
end;
end.

uses crt,treug;
var x1,y1,x2,y2,x3,y3:real;
begin
clrscr;
repeat
writeln('Введите координаты трех вершин треугольника:');
write('1:  ');readln(x1,y1);
write('2:  ');readln(x2,y2);
write('3:  ');readln(x3,y3);
if not Proverka(x1,y1,x2,y2,x3,y3)then writeln('Это не треугольник! Повторите ввод.');
until Proverka(x1,y1,x2,y2,x3,y3);
writeln('Перметр треугольника=',Perim(x1,y1,x2,y2,x3,y3):0:2);
writeln('Площадь треугольника=',Plosh(x1,y1,x2,y2,x3,y3):0:2);
readln
end.