Даны целочисленные координаты трех вершин прямоугольника, стороны которого параллельны координатным осям. Найти координаты его четвертой вершины — Pascal(Паскаль)

Program If23;
Var
x1,y1,x2,y2,x3,y3,x4,y4:integer;
Begin
ReadLn(x1,y1,x2,y2,x3,y3);
If x1 = x2 Then x4 := x3;
If x1 = x3 Then x4 := x2;
If x2 = x3 Then x4 := x1;
If y1 = y2 Then y4 := y3;
If y1 = y3 Then y4 := y2;
If y2 = y3 Then y4 := y1;
WriteLn('Координаты четвертой вершины: ',x4,',',y4); 
End.