Какие числа тут нужны?
!

Dim Massiv(9) as Integer ' Объявляем массив из 9 элементов

Dim Composition as Integer ' Результат произведения нечетных элементов массива

Dim index as Integer ' Индекс для доступа к элементам массива

' Заполняем массив случайными числами

For index = 0 to 9

   Massiv(index) = Rnd() * 5

   print Massiv(index) ' Вывод массива

Next

' Инициализируем переменную Composition

Composition = 1

For index = 0 to 9

   If Massiv(index) Mod 2 <> 0 Then  ' Если элемент не четный то выполнить произведение

        Composition = Composition * Massiv(index)

   End if

Next

print Composition ' Результат произведения

var

i, a, b, n, n2, j: longint;

s: string;

flag: boolean;

begin

Write('Введите через пробел границы диапазона: ');

Readln(a, b);

if b < a then begin n := a; a := b; b := n end;

if a < 11 then a := 11;

for i := a to b do

begin

Str(i, s);

n := Length(s); n2 := n div 2; flag := true; j := 1;

repeat

flag := (s[j] = s[n - j + 1]);

j := j + 1

until (not flag) or (j > n2);

if flag then Write(i, ' ')

end;

end.

Тестовое решение:

Введите через пробел границы диапазона: 800 1500

808 818 828 838 848 858 868 878 888 898 909 919 929 939 949 959 969 979 989 999

Объяснение: