Найти координаты четвертой вершины прямоугольника

x4:=x1 xor x2 xor x3;
y4:=y1 xor y2 xor y3;

if (x1=x2) then x4:=x3 else x4=x2;

program Snipers;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
 
var x1,y1, x2,y2, x3,y3, x4,y4, dx1,dy1,dx2,dy2,ndx,ndy :longint;
 
procedure diag(x1,y1,x2,y2,x3,y3 : longint; var x4, y4, x5, y5, x6 ,y6 :longint);
begin
if (((x3 - x1)*(x3-x2) + (y3 - y1)*(y3-y2)=0))   then
begin
x4:= x1;
y4:= y1;
x5:= x2;
y5:= y2;
x6:= x3;
y6:= y3;
end else
    if (((x2 - x1)*(x1 - x3) + (y2 - y1)*(y1 - y3)=0)) then
    begin
    x4:= x2;
    y4:= y2;
    x5:= x3;
    y5:= y3;
    x6:= x1;
    y6:= y1;
    end  else
         begin
         x4:= x1;
         y4:= y1;
         x5:= x3;
         y5:= y3;
         x6:= x2;
         y6:= y2;
         end;
end;
 
 
begin
readln(x1,y1,x2,y2,x3,y3);
diag(x1,y1,x2,y2,x3,y3,dx1,dy1,dx2,dy2,ndx,ndy);
 
x4:= dx1-ndx+dx2;
y4:= dy1-ndy+dy2;
 
writeln(x4,' ',y4);
readln
end.