Составьте алгоритм нахождения произведения всех четных чисел от 0 до 100

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