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 输出：