记录编号	323915	评测结果	AAAAAAAAAA
题目名称	[NOIP 2012PJ]质因数分解	最终得分	100
用户昵称	waq	是否通过	通过
代码语言	Pascal	运行时间	0.004 s
提交时间	2016-10-17 14:14:19	内存使用	0.17 MiB

program prime;
var
k,p,q,n:int64;
i,j:longint;
f:boolean;
begin
assign(input,'prime.in');reset(input);
assign(output,'prime.out');rewrite(output);
readln(n);
k:=n;
for i:=2 to trunc(sqrt(n)) do
begin
if n mod i= 0 then
begin
n:=n div i;
for j:=2 to trunc(sqrt(i)) do
if i mod j =0 then f:=true;
if f=false then
writeln( k div i);
end; end;
close(input);close(output);
end.