type rep=(Russia,Ukraina,Gruzia,Belorussia,Azerbaijan);
var NBH:array[rep,rep] of boolean;
r:rep;

Элемент NBH[a,b] равен true, если страны а и b имеют общую границу, и равен false иначе.Определить r-страну, имеющуюю наибольшее число соседей среди перечисленных стран.