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

Программа на 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.