Question

Для побудови прямокутника потрібні координати протилежних вершин. Сторони прямокутника паралельні осям координат. Складіть програму, яка знайде координати двох інших протилежних вершин прямокутника.

Пример ввода #1
4 1 5 4
Пример ответа #1
4 4 5 1
Пример ввода #2
5 3 3 1
Пример ответа #2
3 3 5 1

Answer 1

var x1,x2,y1,y2 : integer;

begin

read(x1,y1,x2,y2);

if x1 < x2 then

writeln(x1, ' ', y2, ' ',x2,' ',y1)

else

writeln(x2, ' ', y1, ' ',x1,' ',y2);

end.

система дала 100 балов

паскаль