Пусть даны координаты трех вершин прямоугольника. Определите координаты четвертой вершины

uses crt;
var x1,y1,x2,y2,x3,y3,x4,y4,k:integer;
begin
clrscr;
writeln('Введите координаты 3х вершин прямоугольника:');
readln(x1,y1,x2,y2,x3,y3);
k:=0;
{если первая точка вершина прямого угла}
if (x2-x1)*(x3-x1)+(y2-y1)*(y3-y1)=0 then
 begin
  x4:=x3+x2-x1;
  y4:=y3+y2-y1;
 end
{если вторая}
else if (x1-x2)*(x3-x2)+(y1-y2)*(y3-y2)=0 then
 begin
  x4:=x3+x1-x2;
  y4:=y3+y1-y2;
 end
{если третья}
else if (x1-x3)*(x2-x3)+(y1-y3)*(y2-y3)=0 then
 begin
  x4:=x2+x1-x3;
  y4:=y2+y1-y3;
 end
{если нет прямого угла}
else k:=1;
if k=0 then write('Координаты четвертой вершины ',x4,'  ',y4)
else write('Данные точки не вершины прямоугольника');
readln
end.

uses crt,graphABC;
var x1,y1,x2,y2,x3,y3,x4,y4,k:integer;
    x11,y11,x12,y12,x13,y13:integer;//для построения прямоугольника
    s1,s2:string;
begin
clrscr;
repeat
writeln('Введите координаты 3х вершин прямоугольника от 100 до 450:');
readln(x1,y1,x2,y2,x3,y3); //чтобы 4-я вершина вошла на экран
until(x1>=100)and(x1<=400)and(y1>=100)and(y1<=400)
and (x2>=100)and(x2<=400)and(y2>=100)and(y2<=400)
and(x3>=100)and(x3<=400)and(y3>=100)and(y3<=400);
k:=0;
//если первая точка вершина прямого угла
if (x2-x1)*(x3-x1)+(y2-y1)*(y3-y1)=0 then
 begin
  x4:=x3+x2-x1; y4:=y3+y2-y1;//координаты 4 точки
  x11:=x1; y11:=y1;//координаты 3-х вершин прямоугольника
  x12:=x2; y12:=y2;
  x13:=x3;y13:=y3;
 end
//если вторая
else if (x1-x2)*(x3-x2)+(y1-y2)*(y3-y2)=0 then
 begin
  x4:=x3+x1-x2; y4:=y3+y1-y2;
  x11:=x2; y11:=y2;
  x12:=x1; y12:=y1;
  x13:=x3;y13:=y3;
 end
//если третья
else if (x1-x3)*(x2-x3)+(y1-y3)*(y2-y3)=0 then
 begin
  x4:=x2+x1-x3;  y4:=y2+y1-y3;
  x11:=x3; y11:=y3;
  x12:=x2; y12:=y2;
  x13:=x1;y13:=y1;
 end
//если нет прямого угла
else k:=1;
hidecursor;
setwindowsize(500,500);
clearwindow;
//рисуем 3 вершины
setbrushcolor(clBlue);
circle(x1,y1,3);
circle(x2,y2,3);
circle(x3,y3,3);
//выводим координаты
setbrushstyle(bsClear);
setfontcolor(clBlue);
str(x1,s1);
str(y1,s2);
textout(x1+10,y1,'1-('+s1+','+s2+')');
str(x2,s1);
str(y2,s2);
textout(x2+10,y2,'2-('+s1+','+s2+')');
str(x3,s1);
str(y3,s2);
textout(x3+10,y3,'3-('+s1+','+s2+')');
if k=1 then //если не прямоугольник
 begin
  setbrushstyle(bsClear); //выводим сообщение
  setfontcolor(clBlack);
  textout(0,0,'Данные точки не вершины прямоугольника');
 end
else //прямоугольник
 begin
  setbrushcolor(clRed); //4 точка
  circle(x4,y4,3);
  str(x4,s1);
  str(y4,s2);
  setbrushstyle(bsClear);
  setfontcolor(clRed);
  textout(x4+10,y4,'4-('+s1+','+s2+')');//координаты
  setpencolor(clBlue);
  moveto(x11,y11);
  lineto(x12,y12);
  lineto(x4,y4);
  lineto(x13,y13);
  lineto(x11,y11);
  setfontcolor(clBlack);//сообщение
  textout(100,10,'Координаты четвертой вершины '+s1+'  '+s2)
 end;
 
end.