分解质因数

以下是用伪代码编写的分解质因数的程序。n为待分解的正整数。

1  i:=1;
2  while n>1 do
3     begin
4 	inc(i);
5 	while n mod i=0 do
6              begin
7 		n:=n div i;
8 		write(i);
9 		if n<>1 then write('*');
10             end;
11    end;