Координаты в Pascal

[A_Orlov]

Как решить задачу?
Даны целочисленные координаты трех вершин прямоугольника, стороны которого параллельны координатным осям. Найти координаты его четвертой вершины.
Заранее спасибо!

[Филантроп]

var x1,y1,x2,y2,x3,y3:integer;
begin
read(x1,y1);
read(x2,y2);
read(x3,y3);
write('koopg 4=',x1,';',y3);
readln;
end.

[Филантроп]

10 символов

[Asylkhan]

Найти сумму элементов в тех строках,
которые содержат хотя бы один отрица*тельный элемент (оформить в виде функции) Помоги срочно до завтра