Разложение числа на множители

[spamer]

Дано натуральное число. Напечатать разложение этого числа на простые множители. Реализовать два варианта:
a) каждый простой множитель должен быть напечатан столько раз, сколько раз он входит в разложение.
b) каждый простой множитель должен быть напечатан один раз.

Вариант а) я сделал вот так :

	
chislo:=StrToInt(Edit1.Text);
i:=2;
while chislo >= i do
  if (chislo mod i) = 0 then
    begin
      Memo1.Lines.Add(IntToStr(i));
      chislo:= chislo div i;
        if chislo >= i then
          Memo1.Lines.Add('*');
    end
  else
  i:=i+1;

Плз, помогите с вариантом b) ???

[Ozerich]

ну запоминай в массив какие были множители и потом смотри if присуствует в массиве then не выводи else выводи

[spamer]

Ozerich я тоже так хотел, но у меня не получается.
Если не тяжело можешь привести пример.

[Tkirill]

uses crt;
var
i,n,:integer;
begin
clrscr;
write(' -> ');
readln(n);
writeln;
i:=2;
write(n,'=');
while (n mod i=0) and (i<=n) do
begin
write(i,' ');
n:=n div i;
end;
i:=3;
while n>=i do
begin
while (n mod i=0) do
begin
write(i,' ');
n:=n div i;
end;
i:=i+2;
end;
readln;
end.

[Tkirill]

uses crt;
var
mas:array[1..20] of integer;
f:boolean;
i,n,j,k:integer;
begin
clrscr;
write(' -> ');
readln(n);
writeln;
i:=2;
k:=0;
for j:=1 to 20 do
mas[j]:=0;
while (n mod i=0) and (i<=n) do
begin
f:=true;
for j:=1 to 20
do
if mas[j]=i then f:=false;
if f then begin k:=k+1; mas[k]:=i; end;
n:=n div i;
end;
i:=3;
while n>=i do
begin
while (n mod i=0) do
begin
f:=true;
for j:=1 to 20
do
if mas[j]=i then f:=false;
if f then begin k:=k+1; mas[k]:=i; end;
n:=n div i;
end;
i:=i+2;
end;
for i:=1 to k do
write(mas[i],' ');
readln;
end.

[spamer]

Tkirill, спасибо за помощь.