Разложение числа на простые множители... Опции

[ACC]

задача - разложить число на простые множители. не могу продумать алгоритм.

Код

uses   crt;
var   a,b,c,i,j:integer;
begin
clrscr;
writeln('vvedite   chislo');
readln(a);
c:=a;
i:=1;
repeat
if a mod i <> 0 then begin writeln (i); b:=i;
inc(i);
???!!!!!!???
end;
until   i=a;
readln;
end.

там вместо вопр\воскл. знаков надо вставить нечто, что раскладывало бы число b на те же простые множители, потом вновь возвращаемся к начальному числу, ищем следующее... рекурсия наверное, да вот присобачить её не получается...


фак и поиск не помог(

[volvo]

Организуй массив типа:

array [1 .. n] of record
  mult: integer;
  power: integer;
end;

и во время (или вместо) печати значений, проходи по массиву и если текущий множитель = arr[k].mult, то увеличивай arr[k].power...