Определите значения переменных x и y после выполнения следующего фрагмента программы:
x:=8; y:=2; if x>y then begin x:= x-y; y:=x; end else begin y:= y-x; x:= y; end;

Варианты ответа
1) x= 6,y= 6
2) x= -6, y= -6
3) x= 6, y= 8
4) x=2, y= -6
5) x=6, y= -6

Все расчеты аналогичны тем, что даны в примере.
а) в системе 20 элементов и она допускает разбиение на 5 подсистем по 4 элемента в каждой; 
Всего связей 20·19 = 380.
При разбиении на 5 подсистем по 4 элемента в каждой:
Число связей между подсистемами 5·4 = 20, число связей внутри каждой подсистемы – 4·3 = 12. Всего 20 + 5·12 = 80 связей

б) в системе 100 элементов и она допускает разбиение на 10 подсистем по 10 элементов в каждой.
Всего связей 100·199 = 19900.
При разбиении на 10 подсистем по 10 элементов в каждой:
Число связей между подсистемами 10·9 = 90, число связей внутри каждой подсистемы – 10·9 = 90. Всего 90 + 10·90 = 990 связей

Смотрите. Тут правда есть немного лишнего.  Противоположные стороны всё таки проверять не надо. Хватит 4х углов. Но текст комментирован, лишнее можно убрать.  поясняющих картинок нет. но вопрос и так слишком долго живёт без ответа. Мне казалось срок жизни 2-3 дня максимум, а тут 5 дней минуло.
Если что, отправляйте на исправление. дома дорисую.
Главное программа работает. Правда есть подозрения, что не во всех Паскалях (как они относятся к объявлению массива массивов?)
Это был Free Pascal Compiler version 2.6.4 [2014/04/20] for i386
В версии 3.0.0. думаю, тоже сработает

P.S.Добавил возможные варианты (не все, ясное дело) расположения точек.