сколько чисел надо умножить чтобы произведение стало больше 500 если числа заданы последовательностью 1 3 5 на паскале

program to_500;uses crt;var i, cnt, p: integer;const need = 500;begin cnt := 1; i := 1; p := 1; while p <= need do begin p := p * i; i := i + 2; cnt := cnt + 1; end; writeln('Надо умножить ', cnt, ' чисел'); readkey();end.

спасибо

Код в комментарии ниже: