Написать программу для pascаl: вычислить произведение всех четных чисел от 50 до 100

Var
  i:integer;
  p:biginteger;
begin
  p := 1;
  for i := 50 to 100 do
    if i mod 2 = 0 then p := p * i;
  writeln(p);  
end.

Тестовое решение:
3289645422013119007424590987918048021708800000000