Программа на Pascal:

program MultiplyEvenNumbers;
var
numbers: array[1..10] of integer;
i, mul: integer;
begin
// Вводим числа с клавиатуры
writeln('Введите 10 целых чисел:');
for i := 1 to 10 do
begin
readln(numbers[i]);
end;
// Ищем и выводим произведение четных чисел
mul := 1;
for i := 1 to 10 do
begin
if numbers[i] mod 2 = 0 then
begin
mul := mul * numbers[i];
end;
end;
writeln('Произведение четных чисел: ', mul);
end.

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