Найти произведение всех двухзначных нечетных натуральных чисел с abc паскаль

Var
  i: integer;
  p: double;

begin
  i := 11; p := 1;
  while(i <= 99) do
  begin p := p * i; i := i + 2 end;
  Writeln('Произведение всех двухзначных натуральных нечетных чисел: ', p)
end.

Результаты решения:
Произведение всех двухзначных натуральных нечетных чисел: 2.88401284629707E+75

Точный ответ: 2884012846297068257122447878731130828879149556133125305538972299939794921875

Var
  i, p: longint;
begin
  p := 1;
  for i:=10 to 99 do
  if (i mod 2)<>0 then  p := p * i;
  Writeln('Произведение всех двухзначных натуральных нечетных чисел: ', p)
end.