Задание №7
Дан массив целых неодинаковых четырехзначных чисел. Найти в массиве число:
1. которое является палиндромом
2. сумма цифр которого больше заданного с клавиатуры простого числа
Результаты выдать на экран

// PascalABC.NET 3.2, сборка 1509 от 27.07.2017// Внимание! Если программа не работает, обновите версию!function SumDig(n:integer):integer;begin  Result:=0;  while n>0 do begin    Result+=n mod 10;    n:=n div 10    endend;begin  var a:=ReadSeqInteger('Вводите числа:',ReadInteger('n=')).ToArray;  Write('Палинодромы: ');  a.Select(x->x.ToString).Where(x->x=x.Inverse).Println;  var k:=ReadInteger('Введите простое число');  Write('Числа, сумма цифр которых больше введенного: ');  a.Where(x->SumDig(x)>k).Printlnend.Примерn= 12Вводите числа: 9437 2522 3534 1532 4664 6882 7629 5820 2530 9889 6526 6573 Палинодромы: 4664 9889Введите простое число 19Числа, сумма цифр которых больше введенного: 9437 4664 6882 7629 9889 6573