560 INPUT"Натуральное число";S:N=S:W$=""
570 I=2
580 IF N/I=FIX(N/I) THEN N=N/I:W$=W$+STR$(I) ELSE I=I+1:GOTO 580
590 IF I<N THEN 570 ELSE W$=W$+STR$(N)
600 FOR L=2 TO LEN(W$)
610 IF MID$(W$,L,1)=CHR$(32) THEN MID$(W$,L,1)="*"
620 NEXT:PRINT S;"=";W$
630 END