Пример программы нахождения произведения чисел от 10 до 16 на языке Pascal ABC:

program Proizvedenie;
var
i, proizv: integer;
begin
proizv := 1; // Инициализируем переменную proizv значением 1
for i := 10 to 16 do
begin
proizv := proizv * i; // Умножаем proizv на текущее значение i
end;
writeln('Произведение чисел от 10 до 16 равно ', proizv);
end.

Эта программа объявляет переменные i и proizv типа integer (целое число), инициализирует proizv значением 1, а затем в цикле умножает proizv на каждое число от 10 до 16. В конце программа выводит результат – произведение чисел от 10 до 16.