Практикум на ЭВМ Pascal

var x1,y1, x2,y2, x3,y3: integer;
begin
write ('координаты 1-й точки через пробел (x,y):');
readln (x1,y1);
write ('координаты 2-й точки через пробел (x,y):');
readln (x2,y2);
write ('координаты 3-й точки через пробел (x,y):');
readln (x3,y3);
if (x2 <> x1) and (x2 <> x3) then write ('x4=',x2,' ')
else if (x2 <> x1) and (x2 = x3) then write ('x4=',x1,' ')
else write ('x4=',x3,' ');
if (y2 <> y1) and (y2 <> y3) then write ('y4=',y2)
else if (y2 <> y1) and (y2 = y3) then write ('y4=',y1)
else write ('y4=',y3);
end.

через массив
var i: integer;
x,y: array [1..3] of integer;
begin
for i:=1 to 3 do
begin
write ('координаты ',i,'-й точки через пробел (x,y):');
readln (x[i],y[i]);
end;
if (x[2] <> x[1]) and (x[2] <> x[3]) then write ('x4=',x[2],' ')
else if (x[2] <> x[1]) and (x[2] = x[3]) then write ('x4=',x[1],' ')
else write ('x4=',x[3],' ');
if (y[2] <> y[1]) and (y[2] <> y[3]) then write ('y4=',y[2])
else if (y[2] <> y[1]) and (y[2] = y[3]) then write ('y4=',y[1])
else write ('y4=',y[3]);
end.

Это сложно?
Есть координаты, x1,y1, x2,y2,x3,y3. Надо найти x4,y4, причём известно, что х4 равно либо х1, либо х2, либо х3. Из них надо выбрать такое, которое не равно любому из двух других:
if x1=x2 then x4:=x3 else if x2=x3 then x4:=x1 else x4:=x2;
То же самое для y.

Боюсь, эта задача повышенной сложности. Ее бесплатно никто не решит. Ну и неделя разработки, сам понимаешь.

информатика попроси))) Заодно и узнаем как он в майле подписан ахахаха