Готово, даже удалось избежать создания самого массива)
uses crt;
var n,k,a,b:string;
begin
write('Введите четырёхзначное число: ');
readln(a);
n:=copy(a,1,2);
k:=copy(a,3,2);
b:=k+n;
writeln(b);
end.
(1*2)+9=11\2 и (1*16)+7=23\16............теперь сравниваем 11\2 меньше 23\16, а 23\16 больше 11\2
1} 136 - не может получиться (если это 13 и 6, то первая сумма больше второй; а если это 1 и 36, то 36 нельзя получить как сумму 2-х цифр)
2} 712 - может получиться (например для числа 257)
3} 215 - не может получиться (если это 21 и 5, то первая сумма больше второй; если это 2 и 15, значит средняя цифра должна быть <=2, но тогда нельзя получить 15 как сумму средней и младшей цифр)
4} 10 - не может получиться (первая сумма больше второй)
5} 621 - не может получиться (21 нельзя получить как сумму 2-х цифр)
6} 619 - не может получиться (19 нельзя получить как сумму 2-х цифр)
Ответ: 1