Произведение N первых нечетных чисел равно p. Сколько сомножителей взято? (программа Паскаль)

Question

Произведение N первых нечетных чисел равно p. Сколько сомножителей взято?

Answer 1

program z1; {k -сомножители, a- число сомножителей , s - произведение}
uses crt;
var k,s,p:integer; a: longint;
begin
readln(p);
k:=1; s:=1; a:=0;
repeat
s:=s*k;
k:=k+2;
a:=a+1;
until p=s;
writeln ('число сомножителей; ',a);
end.