Пример кода на Pascal для вычисления суммы элементов массива из 10 целых чисел, стоящих на нечетных местах:

program SumOddElements;
var
arr: array[1..10] of Integer;
sum, i: Integer;
begin
sum := 0;
// Заполнение массива целыми числами
for i := 1 to 10 do
begin
Write('Введите элемент массива arr[', i, '] = ');
Readln(arr[i]);
end;
// Вычисление суммы элементов массива, стоящих на нечетных местах
for i := 1 to 10 do
begin
if (i mod 2 <> 0) then // Проверка на нечетное место
begin
sum := sum + arr[i];
end;
end;
// Вывод суммы на экран
Writeln('Сумма элементов массива, стоящих на нечетных местах: ', sum);
end.

После запуска этой программы и ввода целых чисел в массив, программа выведет сумму элементов массива, стоящих на нечетных местах.