Siema mam problem ucze się delphi i mam za zadanie rozłożyć liczbę naliczby pierwsze algorytm ok wszystko git tylko mam problem z wyświetleniem chce to wyświetlić jako np 9=3 do potęgi 2 ma ktoś pomysł jak to zrobić?? wszystko mam w array zapisane podaje kod
procedure TForm1.Button1Click(Sender: TObject);
// zmienne
var
a : array[1..31] of integer;
i,d,maxd,n : integer;
x : string;
//koniec zmienne
begin
Listbox1.clear;
n:=strtoint(Edit1.text);
if n > 1 then
begin
// Algorytm rozkładu na czynniki pierwsze
i := 0; maxd := round(sqrt(n));
for d := 2 to maxd do
while n mod d = 0 do
begin
Inc(i); a[i] := d;
n := n div d
end;
if n > 1 then
begin
Inc(i); a[i] := n
end;
// Koniec algorytmu, wypisujemy wyniki
//jak to wyświetlić
end
else
//Jeżeli jest błąd
end;
end.