Помогите пожалуйста, информатика не моё​

Question

Помогите пожалуйста, информатика не моё​

---

Answer 1

Блок-схема на прикрепленном изображении

Листинг программы:

var i, prod: integer;

begin

   prod := 1;

   for i := 1 to 14 do

       if i mod 2 = 0 then

           prod := prod * i;

   writeln(prod);

end.

---