Найти произведение всех двухзначных нечетных натуральных чисел с помощью 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.