PROGRAM CHU7_3；
VAR P，Q，S，T：INTEGER；
BEGIN
READLN(P)；
FOR Q:=P+1 TO 2*P DO
BEGIN
T:=0；
S:=(P*Q)MOD(Q-P)；
IF S=0 THEN
BEGIN
T:=P+Q+(P*Q)DIV(Q-P)；
WRITE(T：4)；
END；
END；
READLN
END.
输入：12
输出：181 110 87 76 66 62 61 60