8
Объяснение:
Чтобы составить слово, одинаково читающееся слева направо и справа налево, нужно чётное количество одинаковых букв.
Посчитав, сколько раз встречается в фразе одна и та же буква, находим:
1) буквы J, I, N, G повторяются 3 раза;
2) буква L повторяется 9 раз;
3) буквы T, H, W, Y встречаются только один раз.
Мы должны убрать по одному кубику с этими буквами, т. е. убираем 9 кубиков.
Всего было 37 кубиков, значит, осталось 28.
28 делится на 2, поэтому мы можем вставить в середину слова любой один кубик (как "л" в слове шалаш), т.е. возвращаем один кубик из убранных.
var
a: array[1..5] of integer;
i : integer;
Begin
randomize;
For i:= 1 to 5 do
a[i]:= random(5000);
For i:= 1 to 5 do
write(a[i], ' ');
end.