刚接触的时候，我这种题也不会，呵呵，有点怀念！

[quote]var
  n,i,j,k,l:integer;
function ss(n:integer):boolean;/判断素数
  begin
    if n=1 then
      begin
        ss:=false;exit;
      end;
    for j:=2 to n div 2 do
      if n mod j=0 then
        begin
          ss:=false;exit;
        end;
  end;
procedure print(n:integer);/如果是合数就输出它个质因数
  begin
    for i:=2 to n-1 do
      if (n mod i=0) and (ss(i)) then write(i,' ');/输出过程:列举数字首先能整除该数字,其次是质数
  end;
begin
  readln(n);/读入这个数字
  if ss(n) then
    writeln(n)
  else
    print(n);
end.

[/quote]
思路很清晰嘛