Бейсик. Разложение числа на простые множители

[Micro-Ice]

Помогите решить задачу "Разложение числа на простые множители"
на языке Basic.
Вот какой-то бред получился

INPUT P
I=2
WHILE P<>1
A=P : B=I
GOSUB 10
IF A=0 THEN PRINT B : P=P/B ELSE I=I+1
WEND
END
10 REM
WHILE A>=B
A=A-B
WEND
RETURN

Нужен чтоб ответ получился примерно так 2^3*3^2 или хотяб так 2*2*2*3*3
P.S. ЖЕЛАТЕЛЬНО СО ВСПОМОГАТЕЛЬНЫМ АЛГОРИТМОМ!!!



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

так устроит?

INPUT P
I = 2
WHILE P <> 1
  A = P: B = I
  GOSUB 10
  IF A = 0 THEN
     PRINT B;
     P = P / B
     IF P <> 1 THEN PRINT "*";
  ELSE
    I = I + 1
  END IF
WEND
PRINT " "
END
10 : REM
WHILE A >= B
  A = A - B
WEND
RETURN

[Micro-Ice]

Вполне
Спасибо!!!