Дан массив из n четырехзначных натуральных чисел. Вывести на экран только те, у которых сумма первых двух цифр равна сумме последних двух. Решение в Паскале

// PascalABC.NET 3.3// Cборка 1590 от 03.12.2017begin  var a:=ReadArrInteger('Введите элементы массива->',ReadInteger('Введите размер массива->'));  a.Where(t->((t div 1000)+(t div 100 mod 10))=((t mod 100 div 10)+(t mod 10))).DefaultIfEmpty.Println;end.Пример(1):Введите размер массива-> 5Введите элементы массива-> 1423 4786 8154 1322 88961423 8154 1322Пример(2):Введите размер массива-> 5Введите элементы массива-> 1564 1546 1534 3548 13540