Программа на Pascal выглядит так: Program Product; Var i: Integer; r: LongInt; Beginr := 1; For i := 0 To 100 Do If i Mod 2 = 0 Then r := r * i; WriteLn('Результат: ', r); ReadLn; End. Но так как нуль - тоже чётное, то всё произведение будет равно 0.