求大神！！！！！！！！！！！！！

level 6

ddd748ddd 楼主

题目描述
小x刚学会了因数，现在他想知道一个很大的数n的第二小质因数。
输入
一个数n
输出
若n是质数，则输出0，若只有一个质因数，则输出1，其余输出它的第二小质因数。
样例输入
4
样例输出
2

2013年11月23日 04点11分 1

level 12

var i,x:longint;
begin
readln(x);
for i:=1 to trunc(sqrt(x)) do
if x mod i=0 then
begin
writeln(i);
halt;
end;
writeln(0);
end.

2013年11月26日 15点11分 2