составьте алгоритм нахождения произведения всех четных чисел от 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.