Получится квадрат
Тут все легко просто представьте это в уме и все получится))
===== PascalABC.NET =====
begin
var a := ReadArrInteger(50);
a.Pairwise.Count( p -> p[0].InRange(100, 999) and
p[1].InRange(100, 999)).Println
end.
1)Колумб
2)Чарлз Дарвин
3)Эдвард Гринг
4)Пушкин
5)...
6)...
7)Поиск информации
8)Диск,флешка
9)Байт
10)...
11)...