В паскале ввести n целых чисел и подсчитать творенья четных с

program zz1;
var n,i,j,p:integer; //задаем переменные
begin
write(введите n ); //вводим данное число
read(n);
p:=1; //задаем начальное значение произведения
i:=1; //задаем изначальное значение параметра цикла
while ilt;=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 igt;n;
if p = 1 then write(четных чисел не было) else write(творенье четных чисел с подмогою цикла repeat = ,p);
end.