1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function Primfaktorzerlegung(n: Integer): String;
var 
  i: Integer;
begin
  Result := '';
  i := 2;
  repeat
    while (n mod i = 0) do
    begin
      n:= n div i;
      if Result <>'' then Result := Result + ' * ';
      Result := Result + IntToStr(i);
    end;
    if (i = 2) then i := i + 1 else i := i + 2;
    if (i > trunc(sqrt(n))) then i := n;
  until (n = 1);
  if (Pos('*', Result) = 0) then Result := 'Primzahl';
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

function Primfaktorzerlegung(n: Integer): String;
var
  i: Integer;
begin
  if (n mod 2 = 0) then
  begin
    Result := '2 * ' + Primfaktorzerlegung(n div 2);
    exit;
  end;
  for i := 1 to trunc(sqrt(n)) div 2 do
  begin
    if (n mod (2 * i + 1) = 0) then
    begin
      Result := IntToStr(2 * i + 1) + ' * ' + Primfaktorzerlegung(n div (2 * i + 1));
      exit;
    end;
  end;
  Result := IntToStr(n);
end;