1. Даны 7 чисел (вводятся с клавиатуры), найти произведение четных. Скажите как сделать правильно ?

Var 
a: array[1..8] of integer; 
i, b, min: integer;
begin 
b := 1; 
for i := 1 to 8 do  begin   
write('Введите ', i, '-ый элемент массива ');   
Readln(a[i]); //Вводим число
if i = 1 then min := a[i] else // Если это первое число то min:= это число   
if min > a[i] then begin //Если min оказывается больше введённого числа
min := a[i]; //то min:= это чило
b := i; //и переменной b := номер этого числа в массиве
end; 
end; 
Write('Первоначальный массив | '); 
for i := 1 to 8 do write(a[i], ' ');  // Выводим этот массив
Writeln('| Индекс минимального элемента ', b, '. Число ', a[b]); // Переменную b и элемент стоящий на месте b  
Write('Преобразованный массив| '); 
for i := 1 to 8 do   begin   
a[i] := a[i] - min;    //Преобразуем массив вычитая из элемента i - min
write(a[i], ' ');  // И сразу выводим преобразованное число
end; 
write('|');
end. //конец

нашел раз принтер небольшой дом. залез в него и начал там жить. пришла мышь и спрашивает: "кто в теремке живет? " и принтер отвечает: "я здесь живу, заходи вместе жить будем. " . жили они хорошо. пришел модем и спрашивает "кто в теремке живет? " ему отвечают "принтер и мышь . заходи вместе жить будем."стали вместе жить. пришла клавиатура и спросила "кто тут живет? " и ей ответили " принтер, мышь и модем . заходи вместе жить будем." жили они вместе. пришел монитор и спрашивает "кто в теремке живет? " ему ответили "мест нет! ". залез монитор в теремок и начал там жить. так и появился компьютер.