getreal

(getreal [prompt])

Asks for a real number (with a decimal point; the comma separates coordinates).

(setq k (getreal "\nFactor: "))