Найдите произведение чётную чисел от 16. пока чисел не станет 10. языком паскаля

//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)

begin
  Println(Range(16,34,2).Aggregate(biginteger(1),(a,b)->a*b));
end.

Результат:
72266652057600 

Var
  i,k:integer;
  p:real;
 
begin
  i:=16; k:=1; p:=i;
  while k<>10 do begin
    i:=i+2; k:=k+1; p:=p*i
    end;
  Writeln(p)
end.

Результат
72266652057600