uses crt,graph;
var x,x1,x2,y,y1,y2,gd,gm:integer;
a,b,c:real;
begin
clrscr;
writeln('Введите координаты первой точки (X и Y) после каждой коор. ENTER');
readln(x);
readln(y);
writeln('Введите координаты второй точки (X1 и Y1) после каждой коор. ENTER');
readln(x1);
readln(y1);
writeln('Введите координаты третьей точки (X2 и Y2) после каждой коор. ENTER');
readln(x2);
readln(y2);
a:=sqrt((x-x1)*(x-x1)+(y-y1)*(y-y1));
b:=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
c:=sqrt((x2-x)*(x2-x)+(y2-y)*(y2-y));
if (a+b>c) and (c+b>a) and (a+c>b) then
begin
writeln('Построение треугольника провести можно ');
initgraph(gd,gm,'c:\bp\bgi');
line(x,y,x1,y1);
line(x1,y1,x2,y2);
line(x2,y2,x,y);
delay(3000);
end
else writeln('Треугольник не построится ');
end.