В паскале ввести n целых чисел и подсчитать произведения четных с помощью repead, while

program zz1;

var n, i, j, p:integer; / /задаем переменные

begin

write ('введите n '); / /вводим заданное число

read (n);

p:=1; / /задаем начальное значение произведения

i:=1; / /задаем начальное значение параметра цикла

while i<=n do

begin

read (j); / /вводим число

if j mod 2 = 0 then p:=p*j; / /проверяем, если число делится на два, то умножаем его на произведение

i:=i+1; / /увеличиваем параметр цикла

end;

if p = 1 then writeln ('четных чисел не было') else writeln ('произведение четных чисел с помощью цикла while = ', p); / /выводим ответ

p:=1;

i:=1;

repeat

begin

read (j);

if j mod 2 = 0 then p:=p*j;

i:=i+1;

end;

until i>n;

if p = 1 then write ('четных чисел не было') else write ('произведение четных чисел с помощью цикла repeat = ', p);

end.