找出规律，计算。

你的资料上显示你是男生呀???
program zhs (input,output);
  var
    x,y,n:integer;
  begin
    read(x);
    write('x=',x);
    y:=2;
    n:=0;
    repeat
      if x mod y = 0
        then begin
               x:=x div y;
               n:=n+1
             end
        else y:=y+1
    until x=1;
    writeln('':10,'n=',n)
  end.

这年头，搞不好为了得到帮助才说是小女生。搞不好是个老女人或老男人！

3楼说得太好了,顶.

可以这样：
program asdf;
var n,i:integer;

function pris(i:integer):boolean;
begin
{自己篇写一个判断质数的函数}
end;

begin
  readln(n);
for i:=2 to n do
  begin
    if n mod i=0 then
       if pris(i) then t:=t+1;
  end;
writeln('个数：',t);
end.
怎么 样，试试吧。[em5][em5][em5][em5][em5]

没看到是小学生嘛！也可能是一着急搞错了性别（可能性：0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000001%）