составьте программу вычисления произведения нечетных чисел от 11 до 43 через while

program f1;var p,x: integer;beginp:=1;x:=11;while x<= 43 do beginp:=p*x;x:=x+2;end;writeln(p);end.