100 INPUT "N=";N 110 IF N>9 THEN GOTO 230 120 FOR A=1 TO N 130 FOR B=1 TO N 140 IF B=2*INT(B/2) THEN GOTO 210 150 IF B=A THEN GOTO 210 160 FOR C=B TO N 170 IF C=A THEN GOTO 200 180 IF C=B*INT(C/B) THEN GOTO 200 190 PRINT A*100+B*10+C 200 NEXT C 210 NEXT B 220 NEXT A 230 END